解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
与えられた並べ替えを実現するあみだくじの生成
(Nested
Flatten)
As a reply to the following comment: kozima: 行数減らす工夫は何もしてないのに表示の方...(#4839) [show]
kozima
#4839()
[
Common Lisp
]
Rating0/0=0.00
行数減らす工夫は何もしてないのに表示の方が長い……
(defun make-amida (list) (unless (equal list '(0)) (let ((n (1- (length list)))) (nconc (make-amida (remove n list)) (loop for x from (1- n) downto (position n list) collect x))))) (defun print-amida (x result) (let ((n (1- (length result)))) (format t "~{~D~^ ~}~&" (loop for x from 0 to n collect x)) (dolist (i x) (let ((str (format nil "~V@{| ~}|" n t))) (setf (aref str (+ i i 1)) #\-) (write-line str))) (format t "~{~D~^ ~}~&" result))) (let ((list '(3 5 2 4 0 1))) (print-amida (make-amida list) list))Rating0/0=0.00-0+
[ reply ]