解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
文字列で＋を表示する
(Nested
Flatten)
As a reply to the following comment: kozima: 最初にこんなリストを作って， :: ...(#10105) [show]
kozima
#10105()
[
Common Lisp
]
Rating3/3=1.00
最初にこんなリストを作って，
(" abc " " " " " "abc abc " " " " " " " " " " " " ")90°ずつ回転させたのと合わせました。
(defun rotate (m) (apply #'map 'list #'vector (reverse m))) (defun merge-line (&rest lines) (apply #'map 'string (lambda (&rest chars) (or (find #\Space chars :test #'char/=) #\Space)) lines)) (defun merge-matrix (&rest matrices) (apply #'mapcar #'merge-line matrices)) (defun write-cross (s) (let* ((m (let* ((n (length s)) (empty (format nil "~V@T~V@T~V@T " n n n)) (line1 (format nil "~V@T~A~V@T " n s n)) (line2 (format nil "~A~V@T~A " s n s))) `(,line1 ,@(make-list (1- n) :initial-element empty) ,line2 ,@(make-list (* 2 n) :initial-element empty)))) (m1 (rotate m)) (m2 (rotate m1)) (m3 (rotate m2))) (mapc #'write-line (merge-matrix m m1 m2 m3))))Rating3/3=1.00-0+
1 reply [ reply ]