注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
どう書く?orgで出題されていた,自分のLisp力でも解けそうな,それでいてLispで書きやすそうなお題をピ... どう書く?orgで出題されていた,自分のLisp力でも解けそうな,それでいてLispで書きやすそうなお題をピックアップ 隣合う二項の差 - どう書く?org cdr再帰に凝っている自分としては,ループは再帰で書きたい.まさしくcdr再帰(笑) (defun diff (lis) (cond ((> 2 (length lis)) nil) (t (cons (- (cadr lis) (car lis)) (diff (cdr lis)))))) (diff '(3 1 4 1 5 9 2 6 5)) (-2 3 -3 4 4 -7 4 -1) 意外にもレスしている人たちはloopとかdo使って処理してた.計算コストを考えたら計数反復ですが. そしたらすごい人がもっと短いコード書いていた. (defun diff (lis) (mapcar '- (cdr lis) lis))あれ?なんで
2008/01/05 リンク