2009-03-18から1日間の記事一覧
CommonLispの*みたいなかんじのを考えた。健全じゃないから使えないけど。 (let$ (assoc 'Hanako '((Taro . 28) (Saburo . 19) (Hanako . 20))) (if $_ (cdr $_) "Not Found") (print "Hanako's age : " $_)) を (let (($_0 (assoc 'Hanako '((Taro . 28) (S…
CommonLispの*みたいなかんじのを考えた。健全じゃないから使えないけど。 (let$ (assoc 'Hanako '((Taro . 28) (Saburo . 19) (Hanako . 20))) (if $_ (cdr $_) "Not Found") (print "Hanako's age : " $_)) を (let (($_0 (assoc 'Hanako '((Taro . 28) (S…