■

ちょっとloop復習。特に意味はない。

CL-USER > (sort (loop for k being the hash-keys in ht
                      using (hash-value v)
                      collect (cons k v))
                #'<
                :key #'cdr)
((ONE . 1) (TWO . 2) (THREE . 3))

CL-USER > (loop with a = (make-sequence 'list 11 :initial-element 2)
                with b = (loop for x upto 10 collect x)
                for x in a
                for y in b
                collect (expt x y))
(1 2 4 8 16 32 64 128 256 512 1024)

複雑すぎてすぐ忘れてしまうなり（´・ω・｀）最近ちょっと使えるようになってきたけど。。。
ちょくちょく復習しないと・・・。
d:id:Nobuhisa:20071204:1196774442