解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
タブ区切りデータの処理
(Nested
Flatten)
As a reply to the following comment: mc: なんだか書き捨てって感じになってしまいま...(#7734) [show]
mc
#7734()
[
Common Lisp
]
Rating0/0=0.00
(defpackage :doukaku-209 (:use :cl :split-sequence)) (in-package :doukaku-209) (defun parse-integer-or-never (string &key (after #'values)) (let ((num (parse-integer string :junk-allowed 'T))) (if num (funcall after num) string))) (with-open-file (in "doukaku-209.data") (with-open-file (out "doukaku-209.out" :direction :output :if-exists :supersede) (format out "~{~{~A~^ ~}~%~}" (destructuring-bind (title &rest data) (loop :for (id sur fore age) := (split-sequence #\Tab (read-line in nil nil)) :while (and id sur fore age) :collect (list (parse-integer-or-never id) fore sur (parse-integer-or-never age :after #'1+))) `(,title ,@(sort data #'< :key #'first))))))Rating0/0=0.00-0+
[ reply ]