導入
メールを整理していたら
リスト{1,1,2,2,3,3,4,4,5,5・・・100,100}の作成方法がよくわからないです
という質問が見えたので。
プログラム
(define nil '())
(define (make-list limit)
(define (iter i lst)
(if (= i 0)
lst
(iter (- i 1) (cons i (cons i lst)))))
(iter limit nil))
こんな風に書けば作れるよ。
リスト処理なら Scheme にお任せ。リストを処理するプログラミング言語だからね！
実行
gosh> (print (make-list 100))
(1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100)
#<undef>
ほらできた。簡単でしょ。
編集後記
メールの未読が 2,000 超え（ほとんどいらんメール）なので、はやく整理しなさい。
ハイ...