今日もLispの勉強をしてみた

サクッっと終わらせてEmacs-Lispいじりたいなあ。

(+ 1) ; 1

(+ 1 2) ; 3

(+ 1 2 3) ; 6

(* 1) ; 1

(* 2 3) ; 6

(* 2 3 4) ; 24

(- 1) ; -1

(- 1 2) ; -1

(- 10 1 2) ; 7

(/ 12) ; (wrong-number-of-arguments / 1)

(/ 12 2) ; 6

(/ 12 2 2) ; 3

(% 1) ; (wrong-number-of-arguments % 1)

(% 13 3) ; 1

(% 12 2 5) ; (wrong-number-of-arguments % 3)

(random) ; 193676647

(random 6) ; 3

(random 1) ; 0

(random 2 2) ; (wrong-number-of-arguments random 2)

(random t) ; 215278537 ; 新しい種を生成

(= 1 1) ; t

(= 1 2) ; nil

(= 1 2 3) ; (wrong-number-of-arguments = 3)

(/= 1 1) ; nil

(/= 1 2) ; t

(< 1 2) ; t

(< 2 1) ; nil

(<= 1 2) ; t

(<= 2 2) ; t

(<= 3 2) ; nil

(> 1 2) ; nil

(> 2 1) ; t

(>= 2 1) ; t

(>= 2 2) ; t

(>= 2 3) ; nil

(sin 0) ; 0.0

(cos 0) ; 1.0

(tan 0) ; 0.0

(asin 1.0) ; 1.5707963267948966

(acos 1.0) ; 0.0

(atan 1.0) ; 0.7853981633974483

(exp 1) ; 2.718281828459045

(log 16 2) ; 4.0

(log 10) ; 2.302585092994046

(log10 100) ; 2.0

(sqrt 16) ; 4.0

(expt 2 8) ; 256

(abs -123) ; 123

文字の表現

?\M-i ; 134217833

?\C-t ; 20

?あ ; 53794

?\b ; 8

(setq vec [1 2 3 4 5]) ; [1 2 3 4 5]

vec ; [1 2 3 4 5]

(length vec) ; 5

(elt vec 2) ; 3

(aref vec 3) ; 4

(aset vec 4 0) ; 0

vec ; [1 2 3 4 0]

(vector "abc" 'abc '(a b c)) ; ["abc" abc (a b c)] ; 'はquote

(vector "abc" abc (a b c)) ; (void-variable abc)

(make-vector 5 "e") ; ["e" "e" "e" "e" "e"]

(concat "AAA" "BBB" "CCC") ; "AAABBBCCC"

(substring "0123456789" 1 1) ; ""

(substring "0123456789" 1 2) ; "1"

(substring "0123456789" 1 3) ; "12"

(split-string "aaa bbb ccc") ; ("aaa" "bbb" "ccc")

(string-to-number "123") ; 123

(upcase "aaa") ; "AAA"

(downcase "AAA") ; "aaa"

(store-substring "0123456789" 5 "XXX") ; "01234XXX89"

(char-equal ?A ?A) ; t

(char-equal ?B ?C) ; nil

(string= "aaa" "bbb") ; nil

(string= "aaa" "bbb") ; nil

(string< "aaa" "bbb") ; t

(string< "bbb" "aaa") ; nil

(concat "Emacs" nil " " "22") ; "Emacs 22"

(concat '(?E ?m) "acs") ; "Emacs"

(substring "substring" 1 4) ; "ubs"

(substring "substring" -5 -1) ; "trin"

(make-string 5 ?E) ; "EEEEE"

(upcase "Meadow") ; "MEADOW"

(split-string "Emacs 21") ; ("Emacs" "21")

(split-string "split-string" "-") ; ("split" "string")

(store-substring "Emacs 19" 6 "22") ; "Emacs 22"

(number-to-string 365) ; "365"

(string-to-number "FF" 16) ; 255

(string= "Emacs" "Meadow") ; nil

(string< "Emacs" "Meadow") ; t

(format "%c: %d" ?a ?a) ; "a: 97"

(format "%d: %c" 80 80) ; "80: P"

(format "%-10s" "Emacs") ; "Emacs     "

(format "%10s" "Emacs") ; "     Emacs"

(format "%05d" 10) ; "00010"

(format "%05d" 100000) ; "100000"

(format "%x" (+ 10 20)) ; "1e"

(format "%f" (* 10.5 0.2)) ; "2.100000"

(format "%s" '(a b c)) ; "(a b c)"

(format "%s" "String with '\"'") ; "String with '\"'"

(format "%S" "String with '\"'") ; "\"String with '\\\"'\""