http://www.youtube.com/watch?v=SSeDLbMJspg

乱数を生成する gosh> (use srfi-27) #<undef> gosh> (random-integer 5) 4 gosh> (random-integer 5) 0 gosh> (map random-integer '(5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5)) (4 4 0 4 4 1 3 1 0 2 1 0 2 4 4 4 4 4 0 3) take*とdrop* (寛容♡) gosh> (define (</undef>…

カードを作るハートの1 gosh> (string-append "h" (number->string 1)) "h1" ハートの1から13 gosh> (define (make-heart i) (string-append "h" (number->string i))) make-heart gosh> (use srfi-1) #<undef> gosh> (iota 13 1 1) (1 2 3 4 5 6 7 8 9 10 11 12 13</undef>…