超初心者です・・・

このエントリーをはてなブックマークに追加
1デフォルトの名無しさん
lisp言語にて。

負の数字を-1〜-nまでリスト表示させるプログラムが
なかなかできません・・・

1〜nまでの数字を表示させるプログラムまではできたのですが。

条件分岐、再帰など様々なホームページを見ながら試したのですが
うまくいかず

教えていただきたいです。。。

1〜nまでの数字をリスト表示させるプログラムは以下のように
できました

(defun suji(n)(prog (result)(setq result'())(loop () (if (zerop n)(return result))(setq result (append result (cons n nil)))(setq n (sub1 n)) )))

例:(suji 4) => (4 3 2 1)

初心者で申し訳ありませんが、お願いします><
2デフォルトの名無しさん:2005/07/14(木) 13:49:30
2ゲットしちゃうぞ。
3デフォルトの名無しさん:2005/07/14(木) 14:01:23
1000
4デフォルトの名無しさん:2005/07/14(木) 14:01:42
4様
5デフォルトの名無しさん:2005/07/14(木) 14:04:17
           
   ∩___∩       | 
   | ノ\     ヽ      |  
  /  ●゛  ● |      |  
  | ∪  ( _●_) ミ     j     
 彡、   |∪|   |      >>1
/     ∩ノ ⊃  ヽ         
(  \ / _ノ |  |  
.\ “  /__|  |
  \ /___ /
6デフォルトの名無しさん:2005/07/14(木) 14:18:00
最近Vipからの来訪者が多いな。
なんかあったん?
7デフォルトの名無しさん:2005/07/14(木) 14:20:12
長所新車がLISP?
8デフォルトの名無しさん:2005/07/14(木) 14:23:26
相変わらず、Lispは読みづらいと思ってしまう漏れは、一般の言語に侵食されているのか?
9デフォルトの名無しさん:2005/07/14(木) 15:02:29
(defun suji (n)
 (let ((result '()))
  (while (not (zerop n))
   (setq result (cons (- n) result))
   (setq n (1- n)))
  result))
10デフォルトの名無しさん:2005/07/14(木) 15:03:48
>>7
授業の宿題じゃねーの?
俺も大学で習ったよ。
11デフォルトの名無しさん:2005/07/14(木) 15:12:16
lispもできないやつは大学辞めろ。
12デフォルトの名無しさん:2005/07/14(木) 16:47:05
>>7は専卒
13デフォルトの名無しさん:2005/07/16(土) 14:26:44
宿題片付けますスレってもう無いのか?
そこに投げれば良かったのにこのクソ1死ね
14デフォルトの名無しさん
宿題スレはあるけど、C/C++、Java、Pascal、RUBYだけっぽい。