lisp：単一のリストからリストのリストを作成する

Question

私が持っている16の数字のリストをとり、それを4つの要素のリストに入れて、マジックスクエアのゲームボードを表現しようとしています。私はリストを取って単一のサブリストを返すメソッドを作ったので、今ではこのメソッドを再帰的に使ってフルボードを構築しようとしています。

しかし私の問題は、私のinitBoardは何を問わず何も返しませんし、他のすべてのメソッドが必要に応じて動作していることを知っています。私のエラーを明確にしていただければ幸いです！

（4 5 15 10 14 11 1 8 9 16 6 3 7 2 12 13）

そして、何出力であるように、私がしたい：

もここで、例えば入力リストであります

（（4 5 15 10）（14 11 1 8）（9 16 6 3）（7 2 12 13））

(defun smallList (lst cnt) 
    (cond ((>= cnt 4) nil) 
    (t (cons (car lst) (smallList (cdr lst) (+ 1 cnt)))))) 

(defun isEmpty (lst) 
    (if lst 1 -1)) 

(defun initBoard (lst) 
    (cond ((= (isEmpty lst) -1) nil) 
    (t (cons (smallList lst 0) (initBoard (cddddr lst)))))) 

Answer 1

ので、私はあなたの3つの機能をテストし、それは私に正しい出力を与えおそらくあなたの問題はあなたが思うところではないでしょう。

(initBoard '(4 5 15 10 14 11 1 8 9 16 6 3 7 2 12 13)) 

=>((4 5 15 10) (14 11 1 8) (9 16 6 3) (7 2 12 13))

Answer 2

いくつかの発言：

• someList、lst、cntはsome-list、listを使用し、慣用ないが、count

• あなたはただ、is-emptyを必要としませんendpまたはnullを使用してください。 booleanを返します（-1でも1でもない）。あなたがしたい場合は、エイリアスを作る（なぜ？）でした：

  (setf (symbol-function 'is-empty) #'endp) 
  

あなたはsmall-listのためのループを使用することができます。

(defun small-list (list) 
    (values (loop repeat 4 collect (pop list)) list)) 

二値は、リストの残りの部分であるので、あなたはcddddrする必要はありません。

しかし、実際には、一つの関数内でボード全体を初期化する方がよいかもしれませんが：

(defun init-board (list) 
    (loop repeat 4 collect 
     (loop repeat 4 collect (pop list)))) 

最初LOOPは、内側LOOPによって収集されている4つの要素のリストを集めます。収集された要素は入力リストからポップされます。 私は非常に慎重になりたい場合は今、私はいくつかのチェックを追加し、悪い入力にエラーを報告する：

(defun init-board (list) 
    (flet ((failure() 
      (error "Input list should contain exactly 16 integers: ~S" 
        list))) 
    (loop 
     with current = list 
     repeat 4 collect 
     (loop 
      repeat 4 
      collect (if current 
         (let ((element (pop current))) 
          (check-type element integer) 
          element) 
         (failure))) 
     into board 
     finally (if list (failure) (return board))))) 

また、私はボード用の多次元配列を使用します。

(make-array '(4 4) :initial-contents (init-board list)) 

Answer 3

私は、次の再帰関数使用します

：、私は、私はsetqとして定義されたリストを渡している

(defun smalllist (l n) 
    (when l 
     (cons (subseq l 0 (min n (length l))) 
      (smalllist (nthcdr n l) n)))) 

まあ