トップ «前の日記(2013-03-18(Mon)) 最新 次の日記(2013-03-22(Fri))» 編集

屑俺日記

僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。


2013-03-20(Wed) くもり。としか

点の有無で

(define (whats f1 ) f1)
gosh> (whats "foo")
"foo"
 
(define (whatis . f2) f2)
gosh> (whatis "bar")
("bar")

ちょっと脱線

適当に検索 して Common LISP(GNU CLISP 2.49 (2010-07-07))。

[1]> (eq 'a 'A)
T
[2]> (eq 'a '|A|)
T
[3]> (eq 'a '|a|)
NIL
[4]> (eq 'a 'a)
T

よく分からない。
ちなみにscheme (Gauche scheme shell, version 0.9.1)。

gosh> (eq? 'a 'A)
#f
gosh> (eq? 'a '|a|)
#t
gosh> (eq? 'a '|A|)
#f
gosh> (eq? 'a 'a)
#t

色々

もうひとつの scheme 入門から。

"+", "*" の引数は0個以上、"/", "-"は一つ以上。

gosh> (+)
0
gosh> (*)
1
h> (/ 1)
1
gosh> (- 1)
-1

実数から浮動小数演算。それから。

gosh> (exact->inexact (/ 2 5))
0.4
gosh> (quotient 5 2)
2
gosh> (remainder 10 3)
1
gosh> (modulo 10 3)
1

リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。

index.htmlは ここから。