(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     18387,        494]*)
(*NotebookOutlinePosition[     19097,        519]*)
(*  CellTagsIndexPosition[     19053,        515]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[StyleBox["\:7b2c 4 \:56de  2 \:6642\:9650\:76ee",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]]], "Text",
  ShowCellBracket->False,
  CellMargins->{{10, Inherited}, {0, 2}}],

Cell[CellGroupData[{

Cell["\:300e\:30ea\:30b9\:30c8\:306e\:64cd\:4f5c\:300f", "Title",
  ShowCellBracket->False,
  CellMargins->{{2, 2}, {Inherited, 2}},
  TextAlignment->Center],

Cell[TextData[{
  "\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:306f\:524d\:306e\
\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:5b66\:3093\:3060\:30ea\:30b9\:30c8\
\:306b\:5bfe\:3059\:308b\:51e6\:7406\:306e\:305f\:3081\:306e\:95a2\:6570\:306e\
\:4f7f\:3044\:65b9\:3092\:5b66\:7fd2\:3057\:307e\:3059\:ff0e\:3053\:3053\:3067\
\:306e\:64cd\:4f5c\:65b9\:6cd5\:306f",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:7279\:6709\:3067\:3059\:304c\:ff0c\:3053\:308c\:3092\:899a\:3048\:308b\
\:3068\:4e00\:6bb5\:3068\:64cd\:4f5c\:3057\:3084\:3059\:304f\:306a\:308a\:307e\
\:3059\:ff0e"
}], "Text",
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell["\:30a2\:30bf\:30de\:3092\:5909\:3048\:308b", "Section"],

Cell[TextData[{
  "\:3053\:3053\:307e\:3067\:8272\:3005\:3068",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:3092\:4f7f\:3063\:3066\:307f\:308b\:3068\:ff0c",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:3067\:6271\:308f\:308c\:3066\:3044\:308b\:5f0f\:306f\:5fc5\:305a\:4ee5\
\:4e0b\:306e\:3088\:3046\:306a\:5f62\:5f0f\:306b\:306a\:3063\:3066\:3044\:308b\
\:3053\:3068\:306b\:6c17\:3065\:304d\:307e\:305b\:3093\:304b\:ff1f"
}], "Text"],

Cell["\:95a2\:6570\:540d[\:5909\:65701, \:5909\:65702,...]", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell[TextData[{
  "\:4f8b\:3048\:3070\:ff0c\:524d\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\
\:3067\:6271\:308f\:308c\:3066\:3044\:305f\:30ea\:30b9\:30c8\:306f",
  StyleBox["List[\:30c7\:30fc\:30bf]",
    FontFamily->"Courier New"],
  "\:306e\:5f62\:3067\:3057\:305f\:306d\:ff0e\:4ed6\:306e\:95a2\:6570\:306b\
\:3064\:3044\:3066\:3082\:540c\:69d8\:3067\:ff0c\:8db3\:3057\:7b97\:306a\:3069\
\:306f"
}], "Text"],

Cell[BoxData[
    \(a + b\)], "Input"],

Cell["\:3068\:666e\:901a\:306f\:5165\:529b\:3057\:307e\:3059\:304c\:ff0c\:5b9f\
\:306f\:3053\:308c\:3082", "Text"],

Cell[BoxData[
    \(Plus[a, b]\)], "Input"],

Cell["\<\
\:3068\:5165\:529b\:3057\:3066\:3082\:540c\:3058\:7d50\:679c\:306b\:306a\:308b\
\:306e\:3067\:3059\:ff0e3\:3064\:4ee5\:4e0a\:306e\:8db3\:3057\:7b97\:306b\
\:3064\:3044\:3066\:306f\
\>", "Text"],

Cell[BoxData[
    \(Plus[a, b, c, d]\)], "Input"],

Cell[TextData[{
  "\:3068\:5165\:529b\:3067\:304d\:307e\:3059\:ff0e\:3064\:307e\:308a",
  StyleBox["Plus",
    FontFamily->"Courier New"],
  "\:306e\:5f8c\:306b\:7d9a\:304f\:5f15\:6570\:306f2\:500b\:4ee5\:4e0a\:3067\
\:3042\:308c\:3070\:4f55\:500b\:3067\:3082\:81ea\:7531\:306a\:500b\:6570\:3092\
\:4e0e\:3048\:308b\:3053\:3068\:304c\:3067\:304d\:308b\:3068\:3044\:3046\:3053\
\:3068\:306b\:306a\:3063\:3066\:3044\:307e\:3059\:ff0e"
}], "Text"],

Cell["\:4e00\:65b9\:3067\:ff0c\:30ea\:30b9\:30c8\:3068\:3044\:3046\:95a2\:6570\
\:306f\:3069\:3046\:3067\:3057\:3087\:3046\:304b\:ff1f", "Text"],

Cell[BoxData[
    \(List[1, 2]\)], "Input"],

Cell[BoxData[
    \(List[1, 2, 3, 4, 5]\)], "Input"],

Cell["\<\
\:3069\:3046\:3084\:3089\:3053\:306e\:95a2\:6570\:306b\:3064\:3044\:3066\:3082\
\:5f15\:6570\:306f\:3044\:304f\:3089\:3067\:3082\:81ea\:7531\:306a\:500b\:6570\
\:3092\:4e0e\:3048\:308b\:3053\:3068\:304c\:3067\:304d\:308b\:3088\:3046\:3067\
\:3059\:ff0e\
\>", "Text"],

Cell[TextData[{
  "\:3068\:306a\:308b\:3068\:30fb\:30fb\:30fb",
  StyleBox["Plus[a,b,c,d]",
    FontFamily->"Courier New"],
  "\:3068",
  StyleBox["List[a,b,c,d]",
    FontFamily->"Courier New"],
  "\:3092\:6bd4\:3079\:3066\:898b\:3066\:307f\:308b\:3068\:ff0c\:5f62\:5f0f\
\:7684\:306b\:7570\:306a\:3063\:3066\:3044\:308b\:306e\:306f",
  StyleBox["Plus",
    FontFamily->"Courier New"],
  "\:3068\:3044\:3046\:6587\:5b57\:3068",
  StyleBox["List",
    FontFamily->"Courier New"],
  "\:3068\:3044\:3046\:6587\:5b57\:306e\:90e8\:5206\:3067\:3059\:ff0e(\:3053\
\:308c\:30892\:3064\:306e\:3053\:3068\:3092",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:3067\:306f\:300e\:30d8\:30c3\:30c9\:300f\:3068\:547c\:3073\:307e\:3059)\
\:ff0e\:3068\:3044\:3046\:3053\:3068\:306f\:ff0c",
  StyleBox["List[a,b,c,d]",
    FontFamily->"Courier New"],
  "\:306e\:30d8\:30c3\:30c9\:306e\:90e8\:5206\:3092",
  StyleBox["Plus",
    FontFamily->"Courier New"],
  "\:306b\:66f8\:304d\:63db\:3048\:308c\:3070\:76f4\:3061\:306b ",
  StyleBox["a,b,c,d",
    FontFamily->"Courier New"],
  "\:306e\:8db3\:3057\:7b97\:3092\:6c42\:3081\:308b\:3053\:3068\:304c\:3067\
\:304d\:307e\:3059\:ff01\:3053\:306e\:3088\:3046\:306a\:64cd\:4f5c\:306e\:3053\
\:3068\:3092\:300e\:30d8\:30c3\:30c9\:306e\:66f8\:63db\:3048\:300f\:3068\:3044\
\:3044\:ff0c",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:3067\:306f\:4e0b\:8a18\:306e\:3088\:3046\:306a\:95a2\:6570",
  StyleBox["Apply(\:30a2\:30d7\:30e9\:30a4)",
    FontFamily->"Courier New"],
  "\:3092\:7528\:3044\:3066\:5b9f\:884c\:3057\:307e\:3059\:ff0e"
}], "Text"],

Cell["\:30d8\:30c3\:30c9\:306e\:66f8\:63db\:3048\:64cd\:4f5c", "Commentary"],

Cell[BoxData[
    \(Apply[\ Plus, \ List[a, b, c, d]\ ]\)], "Input"],

Cell["\:540c\:3058\:8981\:9818\:3067\:639b\:3051\:7b97\:3082\:3067\:304d\:307e\
\:3059\:306d\:ff0e", "Text"],

Cell[BoxData[
    \(Apply[\ Times, \ List[a, b, c, d]\ ]\)], "Input"],

Cell[TextData[{
  "\:884c\:5217\:30c7\:30fc\:30bf\:306b",
  StyleBox["Apply",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:3067",
  StyleBox["Plus",
    FontFamily->"Courier New"],
  "\:306b\:30d8\:30c3\:30c9\:3092\:66f8\:304d\:63db\:3048\:308b\:3068\:3069\
\:3046\:306a\:308b\:3067\:3057\:3087\:3046\:ff1f"
}], "Text"],

Cell[BoxData[
    \(Apply[Plus, {{1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 6}}]\)], "Input"],

Cell[TextData[{
  "\:305d\:308c\:305e\:308c\:5bfe\:5fdc\:3059\:308b\:8981\:7d20\:540c\:58eb\
\:304c\:8db3\:3055\:308c\:30661\:6b21\:5143\:306e\:30ea\:30b9\:30c8\:306b\
\:306a\:308a\:307e\:3057\:305f\:ff0e\:3055\:3089\:306b\:3082\:3046\:4e00\:5ea6\
\:3053\:306e\:7d50\:679c\:306b\:5bfe\:3057\:3066",
  StyleBox["Plus",
    FontFamily->"Courier New"],
  "\:3078\:3068\:30d8\:30c3\:30c9\:306e\:66f8\:63db\:3048\:3092\:884c\:3063\
\:3066\:307f\:308b\:3068\:30fb\:30fb\:30fb"
}], "Text"],

Cell[BoxData[
    \(Apply[Plus, %]\)], "Input"],

Cell[TextData[{
  "\:3053\:3053\:3067\:ff0c\:8a18\:53f7%\:306f\:4e00\:3064\:524d\:306e\:76f4\
\:524d\:306e\:51fa\:529b\:7d50\:679c\:306e\:3053\:3068\:3092\:610f\:5473\:3057\
\:3066\:3044\:307e\:3059\:ff0e(\:3064\:307e\:308a\:3053\:306e\:5834\:5408\
\:306a\:3089 ",
  StyleBox["{6,9,12,15}",
    FontFamily->"Courier New"],
  "\:3068\:3044\:3046\:30ea\:30b9\:30c8)\:3000"
}], "Text"],

Cell[TextData[{
  StyleBox["Apply",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:306b\:3082\:5b9f\:306f\:7701\:7565\:5f62\:304c\:3042\:3063\
\:3066\:ff0c\:6b21\:306e\:3088\:3046\:306b\:300e@@\:300f(\:30a2\:30c3\:30c8\
\:30de\:30fc\:30af\:3092\:7d9a\:3051\:30662\:3064)\:3068\:3057\:3066\:66f8\
\:304f\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e"
}], "Text"],

Cell[BoxData[
    \(Plus @@ {{1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 6}}\)], "Input"],

Cell["\<\
\:3068\:3044\:3046\:3053\:3068\:306f\:5148\:307b\:3069\:8a08\:7b97\:3057\:305f\
\:884c\:5217\:306e\:8981\:7d20\:3092\:3059\:3079\:3066\:8db3\:3057\:5408\:308f\
\:305b\:308b\:306b\:306f\:6b21\:306e\:3088\:3046\:306b\:3057\:3066\:66f8\:304f\
\:3053\:3068\:304c\:3067\:304d\:308b\:306e\:3067\:3059\:ff0e\
\>", "Text"],

Cell[BoxData[
    \(Plus @@ \(Plus @@ {{1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 
            6}}\)\)], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:30a2\:30bf\:30de\:306b\:304b\:3076\:305b\:308b", "Section"],

Cell[TextData[{
  "\:524d\:306e\:30bb\:30af\:30b7\:30e7\:30f3\:3067\:306f",
  StyleBox["Apply",
    FontFamily->"Courier New"],
  "\:3067\:95a2\:6570\:3084\:30ea\:30b9\:30c8\:306e\:30d8\:30c3\:30c9\:306e\
\:7f6e\:63db\:3048\:3092\:884c\:3044\:307e\:3057\:305f\:ff0e\:3053\:306e\:30bb\
\:30af\:30b7\:30e7\:30f3\:3067\:306f\:4f3c\:3066\:306f\:3044\:308b\:3051\:3069\
\:5c11\:3057\:9055\:3046\:30d8\:30c3\:30c9\:3078\:306e\:4f5c\:7528\:3068\:3044\
\:3046\:3053\:3068\:3092\:884c\:3044\:307e\:3059\:ff0e\:4f5c\:7528\:3068\:3044\
\:3046\:3068\:5c11\:3005\:96e3\:3057\:304f\:805e\:3053\:3048\:307e\:3059\:304c\
\:ff0c\:7c21\:5358\:306b\:3044\:3048\:3070\:5199\:50cf\:306e\:3053\:3068\:3067\
\:3059\:ff0e\:307e\:305a\:306f\:6b21\:306e\:30bb\:30eb\:3092\:5b9f\:884c\:3057\
\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"
}], "Text"],

Cell[BoxData[
    \(Map[\ \:5e3d\:5b50, {\:5317\:6761, \ \:5ddd\:53e3, \ \:5409\:6751}]\)], \
"Input"],

Cell["\<\
\:4e0a\:306e\:51e6\:7406\:3068\:3044\:3046\:306e\:306f\[OpenCurlyDoubleQuote]\
\:5e3d\:5b50\[CloseCurlyDoubleQuote]\:3068\:3044\:3046\:540d\:306e\:95a2\:6570\
\:3092\:ff0c\:5317\:6761\:ff0c\:5ddd\:53e3\:ff0c\:5409\:6751\:306e3\:4eba\
\:306b\:304b\:3076\:305b\:305f\:3068\:3044\:3046\:3053\:3068\:306b\:306a\:308a\
\:307e\:3059\:ff0e\:5e3d\:5b50\:3092\:304b\:3076\:305b\:305f\:5f8c\:306b\:95a2\
\:3059\:308b\:64cd\:4f5c\:306f\:6c7a\:307e\:3063\:3066\:3044\:306a\:3044\:306e\
\:3067\:7d50\:679c\:306f\:305d\:306e\:307e\:307e\:3067\:3059\:ff0e\
\>", "Text"],

Cell["\:3053\:308c\:3092\:6570\:5b66\:7684\:306b\:5225\:306e\:8a18\:53f7\:3067\
\:8868\:3059\:306a\:3089\:ff0c\:4ee5\:4e0b\:306e\:3088\:3046\:306a\:5f62\:306b\
\:306a\:308a\:307e\:3059\:ff0e", "Text"],

Cell[BoxData[
    \(Map[func, {x, y, z}]\)], "Input"],

Cell["\:884c\:5217\:306b\:95a2\:6570\:3092\:4f5c\:7528\:3055\:305b\:308b\:3068\
\:3069\:3046\:306a\:308b\:3067\:3057\:3087\:3046\:304b\:ff1f", "Text"],

Cell[BoxData[
    \(Map[f, {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}]\)], "Input"],

Cell[TextData[{
  "\:95a2\:6570",
  StyleBox["Map",
    FontFamily->"Courier New"],
  "\:306e3\:756a\:76ee\:306e\:5f15\:6570\:3092\:4f7f\:3046\:3053\:3068\:3067\
\:ff0c\:4f5c\:7528\:3055\:305b\:308b\:30c7\:30fc\:30bf\:306e\:3069\:306e\:30ec\
\:30d9\:30eb(\:968e\:5c64)\:306b\:95a2\:6570\:3092\:4f5c\:7528\:3055\:305b\
\:308b\:304b\:3092\:6c7a\:3081\:308b\:3053\:3068\:304c\:3067\:304d\:307e\:3059\
\:ff0e\:305f\:3068\:3048\:30703\:756a\:76ee\:306e\:5f15\:6570\:306b2\:3068\
\:3044\:3046\:6570\:5024\:3092\:6307\:5b9a\:3059\:308b\:3068\:ff0c"
}], "Text"],

Cell[BoxData[
    \(Map[f, {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}, 2]\)], "Input"],

Cell[TextData[{
  "\:3068\:306a\:308a\:307e\:3059\:ff0e\:3053\:308c\:306f\:3064\:307e\:308a1\
\:756a\:76ee\:306e\:30ec\:30d9\:30eb(\:3082\:3063\:3068\:3082\:8868\:306e\
\:69cb\:9020)\:3068\:305d\:3053\:304b\:3089\:3082\:3046\:3072\:3068\:3064\
\:5185\:5074\:306b\:5165\:3063\:305f\:30ec\:30d9\:30eb\:306e2\:7b87\:6240\
\:306b\:7d9a\:3051\:3066",
  StyleBox["f",
    FontFamily->"Courier New"],
  "\:3092\:4f5c\:7528\:3055\:305b\:3066\:3044\:308b\:3053\:3068\:306b\:306a\
\:308a\:307e\:3059\:ff0e\:307e\:305f\:ff0c"
}], "Text"],

Cell[BoxData[
    \(Map[f, {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}, {2}]\)], "Input"],

Cell["\<\
\:306e\:3088\:3046\:306b\:ff0c3\:756a\:76ee\:306e\:5f15\:6570\:3092\:30ea\
\:30b9\:30c8\:3067\:4e0e\:3048\:308b\:3053\:3068\:3067\:ff0c\:305d\:306e\:30ec\
\:30d9\:30eb\:306e\:7b87\:6240\:306e\:307f\:306b\:4f5c\:7528\:3092\:50cd\:304b\
\:305b\:308b\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e\
\>", "Text"],

Cell["\<\
\:4f5c\:7528\:306b\:6307\:5b9a\:3059\:308b\:95a2\:6570(1\:756a\:76ee\:306b\
\:6307\:5b9a\:3059\:308b\:5f15\:6570)\:306f\:ff0c\:901a\:5e38\:300e\:7d14\
\:95a2\:6570\:300f\:3068\:547c\:3070\:308c\:308b\:5f62\:5f0f\:3067\:6307\:5b9a\
\:3057\:307e\:3059\:ff0e\:7d14\:95a2\:6570\:3068\:306f\:8a18\:53f7\:300e#\
\:300f(\:30b7\:30e3\:30fc\:30d7)\:3067\:8868\:3055\:308c\:3066\:3044\:3066\
\:ff0c\:3053\:308c\:306f\:3044\:308f\:3070\:3072\:3068\:3064\:306e\:5909\:6570\
\:3067\:3042\:308b\:3068\:601d\:3063\:3066\:304f\:3060\:3055\:3044\:ff0e\:4e00\
\:9023\:306e\:7d14\:95a2\:6570\:306e\:6700\:5f8c\:306b\:306f\:300e&\:300f(\
\:30a2\:30f3\:30d1\:30b5\:30f3\:30c9)\:3092\:66f8\:3044\:3066\:304a\:304d\
\:307e\:3059\:ff0e\:305f\:3068\:3048\:3070\
\>", "Text"],

Cell["#^2&", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell[TextData[{
  "\:3068\:3044\:3046\:306e\:306f\:5b9f\:8cea\:7684\:306b",
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  "\:3068\:540c\:3058\:610f\:5473\:3067\:3059\:ff0e\:3064\:307e\:308a\:ff0c\
\:4ee5\:4e0b\:3092\:5b9f\:884c\:3059\:308b\:3068\:30ea\:30b9\:30c8\:306e\:5404\
\:8981\:7d20\:306e2\:4e57\:3092\:6c42\:3081\:308b\:3053\:3068\:306b\:306a\
\:308a\:307e\:3059\:ff0e"
}], "Text"],

Cell[BoxData[
    \(Map[#^2 &, {1, 2, 3, 4, 5}]\)], "Input"],

Cell[TextData[{
  "\:3053\:306e\:30bb\:30af\:30b7\:30e7\:30f3\:306e\:5192\:982d\:3067\:5b9f\
\:884c\:3057\:305f",
  StyleBox["Map[func,{x,y,z}]",
    FontFamily->"Courier New"],
  "\:3068\:3044\:3046\:8a18\:8ff0\:306f\:ff0c\:7d14\:95a2\:6570\:3092\:4f7f\
\:3046\:3068\:4ee5\:4e0b\:306e\:3088\:3046\:306b\:66f8\:304f\:3053\:3068\:304c\
\:3067\:304d\:307e\:3059\:ff0e"
}], "Text"],

Cell[BoxData[
    \(Map[func[#] &, {x, y, z}]\)], "Input"],

Cell[TextData[{
  "\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:6271\:3063\:305f",
  StyleBox["Apply",
    FontFamily->"Courier New"],
  "\:3084",
  StyleBox["Map",
    FontFamily->"Courier New"],
  "\:306f\:3068\:3066\:3082\:57fa\:790e\:7684\:3067\:91cd\:8981\:306a\:95a2\
\:6570\:3067\:3059\:304b\:3089\:ff0c\:305c\:3072\:305d\:306e\:4f7f\:3044\:65b9\
\:3092\:30de\:30b9\:30bf\:30fc\:3057\:307e\:3057\:3087\:3046\:ff0e\:3053\:308c\
\:3089\:306e\:95a2\:6570\:3092\:899a\:3048\:308b\:3053\:3068\:306f",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:3092\:4f7f\:3046\:4e0a\:3067\:5927\:5909\:4fbf\:5229\:306b\:306a\:308a\
\:307e\:3059\:ff0e"
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7c21\:5358Q&A", "Section"],

Cell[CellGroupData[{

Cell["Map\:3084Apply\:3092\:4f7f\:3046\:3053\:3068\:306e\:30e1\:30ea\:30c3\
\:30c8\:306f\:ff1f", "Subsection"],

Cell[TextData[{
  StyleBox["Map",
    FontFamily->"Courier New"],
  "\:3084",
  StyleBox["Apply",
    FontFamily->"Courier New"],
  "\:306a\:3069\:306e\:95a2\:6570\:3092\:4f7f\:3046\:3068\:ff0c\:666e\:901a\
\:306e\:7e70\:308a\:8fd4\:3057\:51e6\:7406\:3088\:308a\:3082\:9ad8\:901f\:306b\
\:5b9f\:884c\:3059\:308b\:3053\:3068\:304c\:53ef\:80fd\:3067\:3059\:ff0e"
}], "Text"],

Cell["\:901a\:5e38\:306e\:7e70\:308a\:8fd4\:3057\:51e6\:7406\:3067\:306f\:5c11\
\:3005\:6642\:9593\:306e\:304b\:304b\:308b\:3053\:3068\:3082", "Commentary"],

Cell[BoxData[
    \(Timing[\[IndentingNewLine]n = 1; \[IndentingNewLine]Do[
        n *= i, \[IndentingNewLine]{i, 1, 
          10000}];\[IndentingNewLine]]\)], "Input"],

Cell[BoxData[
    \(Timing[\(Times @@ Range[1, 10000];\)]\)], "Input"],

Cell["\<\
\:6ce8\:610f\:ff1a\:3053\:308c\:3089\:306e\:95a2\:6570\:3092\:4f7f\:3046\:5834\
\:5408\:ff0c\:78ba\:304b\:306b\:9ad8\:901f\:5316\:306f\:671f\:5f85\:3067\:304d\
\:307e\:3059\:304c\:53cd\:9762\:30e1\:30e2\:30ea\:4f7f\:7528\:91cf\:3082\:5897\
\:3048\:308b\:3053\:3068\:306b\:6ce8\:610f\:3057\:3066\:304f\:3060\:3055\:3044\
\:ff0eDo-Loop\:6587\:306f\:9ad8\:901f\:3067\:306f\:3042\:308a\:307e\:305b\
\:3093\:304c\:7701\:30e1\:30e2\:30ea\:5316\:306e\:70b9\:3067\:306f\:52b9\:7387\
\:7684\:3067\:3059\:ff0e\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:30ea\:30b9\:30c8\:306e\:3042\:308b\:8981\:7d20\:306b\:3060\:3051\:95a2\
\:6570\:3092\:9069\:7528\:3059\:308b\:306b\:306f\:ff1f", "Subsection"],

Cell[TextData[{
  StyleBox["MapAt",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:3068\:3044\:3046\:306e\:304c\:3042\:308a\:307e\:3059\:ff0e\
\:3053\:308c\:3092\:4f7f\:3048\:3070\:671f\:5f85\:3059\:308b\:7b87\:6240\:306e\
\:8981\:7d20\:306b\:95a2\:6570\:3092\:9069\:7528\:3067\:304d\:307e\:3059\:ff0e\
\:4ee5\:4e0b\:3067\:306f2\:756a\:76ee\:30683\:756a\:76ee\:306e\:8981\:7d20\
\:306b\:3060\:3051\:95a2\:6570\:3092\:9069\:7528\:3057\:3066\:3044\:307e\:3059\
\:ff0e"
}], "Text"],

Cell[BoxData[
    \(MapAt[f, {a, b, c, d}, {{2}, {3}}]\)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["2\:3064\:306e\:30ea\:30b9\:30c8\:306e\:5bfe\:5fdc\:3059\:308b\:8981\
\:7d20\:306b\:95a2\:6570\:3092\:9069\:7528\:3057\:3066\:3044\:304f\:306b\:306f\
\:ff1f", "Subsection"],

Cell[TextData[{
  StyleBox["MapThread",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text"],

Cell[BoxData[
    \(MapThread[f, {{a, b, c, d}, {1, 2, 3, 4}}]\)], "Input"]
}, Closed]],

Cell["Copyright \[Copyright] CAT Inc., 2001, All rights reserved.", \
"Commentary",
  Editable->False,
  ShowCellBracket->False,
  TextAlignment->Center]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 695}},
CellGrouping->Manual,
WindowSize->{640, 530},
WindowMargins->{{48, Automatic}, {49, Automatic}},
StyleDefinitions -> "Report.nb"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 211, 5, 21, "Text"],

Cell[CellGroupData[{
Cell[1953, 58, 157, 3, 49, "Title"],
Cell[2113, 63, 632, 12, 46, "Text"],

Cell[CellGroupData[{
Cell[2770, 79, 61, 0, 67, "Section"],
Cell[2834, 81, 458, 10, 46, "Text"],
Cell[3295, 93, 125, 2, 37, "Program"],
Cell[3423, 97, 409, 8, 46, "Text"],
Cell[3835, 107, 38, 1, 35, "Input"],
Cell[3876, 110, 114, 1, 29, "Text"],
Cell[3993, 113, 43, 1, 35, "Input"],
Cell[4039, 116, 203, 4, 29, "Text"],
Cell[4245, 122, 49, 1, 35, "Input"],
Cell[4297, 125, 444, 8, 46, "Text"],
Cell[4744, 135, 144, 1, 29, "Text"],
Cell[4891, 138, 43, 1, 35, "Input"],
Cell[4937, 141, 52, 1, 35, "Input"],
Cell[4992, 144, 276, 5, 29, "Text"],
Cell[5271, 151, 1595, 38, 97, "Text"],
Cell[6869, 191, 76, 0, 23, "Commentary"],
Cell[6948, 193, 68, 1, 35, "Input"],
Cell[7019, 196, 108, 1, 29, "Text"],
Cell[7130, 199, 69, 1, 35, "Input"],
Cell[7202, 202, 323, 9, 29, "Text"],
Cell[7528, 213, 88, 1, 35, "Input"],
Cell[7619, 216, 482, 9, 46, "Text"],
Cell[8104, 227, 47, 1, 35, "Input"],
Cell[8154, 230, 382, 8, 46, "Text"],
Cell[8539, 240, 365, 7, 46, "Text"],
Cell[8907, 249, 83, 1, 35, "Input"],
Cell[8993, 252, 324, 5, 46, "Text"],
Cell[9320, 259, 108, 2, 35, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9465, 266, 67, 0, 67, "Section"],
Cell[9535, 268, 820, 13, 63, "Text"],
Cell[10358, 283, 102, 2, 35, "Input"],
Cell[10463, 287, 564, 8, 46, "Text"],
Cell[11030, 297, 200, 2, 29, "Text"],
Cell[11233, 301, 53, 1, 35, "Input"],
Cell[11289, 304, 150, 1, 29, "Text"],
Cell[11442, 307, 74, 1, 35, "Input"],
Cell[11519, 310, 553, 10, 46, "Text"],
Cell[12075, 322, 77, 1, 35, "Input"],
Cell[12155, 325, 526, 10, 46, "Text"],
Cell[12684, 337, 79, 1, 35, "Input"],
Cell[12766, 340, 319, 5, 46, "Text"],
Cell[13088, 347, 759, 11, 63, "Text"],
Cell[13850, 360, 77, 2, 37, "Program"],
Cell[13930, 364, 396, 8, 46, "Text"],
Cell[14329, 374, 60, 1, 35, "Input"],
Cell[14392, 377, 378, 8, 46, "Text"],
Cell[14773, 387, 58, 1, 35, "Input"],
Cell[14834, 390, 674, 15, 46, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15545, 410, 34, 0, 67, "Section"],

Cell[CellGroupData[{
Cell[15604, 414, 110, 1, 41, "Subsection"],
Cell[15717, 417, 372, 9, 29, "Text"],
Cell[16092, 428, 156, 1, 23, "Commentary"],
Cell[16251, 431, 170, 3, 115, "Input"],
Cell[16424, 436, 70, 1, 35, "Input"],
Cell[16497, 439, 523, 8, 46, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[17057, 452, 150, 1, 25, "Subsection"],
Cell[17210, 455, 480, 9, 46, "Text"],
Cell[17693, 466, 67, 1, 35, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[17797, 472, 177, 2, 25, "Subsection"],
Cell[17977, 476, 136, 4, 29, "Text"],
Cell[18116, 482, 75, 1, 35, "Input"]
}, Closed]],
Cell[18206, 486, 153, 4, 21, "Commentary"]
}, Open  ]]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)