解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
データの整列
(Nested
Flatten)
As a reply to the following comment: mc: Common Lispのsort関数は、...(#5858) [show]
mc
#5858()
[
Common Lisp
]
Rating0/0=0.00
比較する関数さえ変更すれば、多様な比較が可能となっています。
sortはリストを破壊的に変更するので、例では、リストをコピーして引数に与えています。
*positions* ;=> ((9 . 98) (77 . 0) (17 . 30) (17 . 73) (83 . 3) (81 . 30) (99 . 99) (90 . 68) (21 . 81) (92 . 29)) ;; 辞書順で比較 (sort (copy-list *positions*) (lambda (x y) (cond ((< (car x) (car y)) 'T) ((= (car x) (car y)) (< (cdr x) (cdr y))) ('T nil)))) ;=> ((9 . 98) (17 . 30) (17 . 73) (21 . 81) (77 . 0) (81 . 30) (83 . 3) (90 . 68) (92 . 29) (99 . 99)) ;; (0, 0)からの距離で比較 (sort (copy-list *positions*) #'< :key (lambda (x) (expt (+ (car x) (cdr x)) 1/2))) ;=> ((17 . 30) (77 . 0) (83 . 3) (17 . 73) (21 . 81) (9 . 98) (81 . 30) (92 . 29) (90 . 68) (99 . 99))Rating0/0=0.00-0+
[ reply ]