エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
仕事で、ほぼ連番な数字の配列のなかから、連番になってない抜けの部分の数字を取り出す必要があって、 ... 仕事で、ほぼ連番な数字の配列のなかから、連番になってない抜けの部分の数字を取り出す必要があって、 Perl や Ruby でどう書けばいいかパッと思いつかなかったので Emacs Lisp で再帰で書いた。一応実務で役に立ちましたよ、という話。まぁ Ruby とかでパッと書けないのがダサイじゃんという話でもある。 (setq ns '(1 2 3 5 6 8 9 10)) (defun f (n ns) (cond ((null ns) nil) ((= (1+ n) (car ns)) (f (car ns) (cdr ns))) (t (cons (1+ n) (f (car ns) (cdr ns)))))) (f 0 ns) (setq ns '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26