トップページ > プログラム > 2014年10月06日 > xPSCLTwu

書き込み順位＆時間帯一覧

27 位/187 ID中時間01234567891011121314151617181920212223Total
書き込み数0000000000010001000000002



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん
プログラミングのお題スレ Part5

書き込みレス一覧

プログラミングのお題スレ Part5
221 ：デフォルトの名無しさん[sage]：2014/10/06(月) 11:20:47.64 ID:xPSCLTwu
>>164 Common Lisp

(defun f (n)
(let ((l (reverse (list 0 1 2 3))))
(cond ((<= n 4) (nth (1- n) (reverse l)))
(t (dotimes (i (- n 4))
(push (+ (nth 0 l)
(nth 1 l)
(nth 2 l)
(nth 3 l)) l))
(car l)))))
F

(loop for i from 1 to 10 collect (f i))
(0 1 2 3 6 12 23 44 85 164)

(length (format nil "~A" (f 10000)))
2850

(substring (format nil "~A" (f 10000)) 0 50)
"28058566764257248608122072881910525085551777891599"
プログラミングのお題スレ Part5
223 ：デフォルトの名無しさん[sage]：2014/10/06(月) 15:54:33.94 ID:xPSCLTwu
>>164 Emacs Lisp

(require 'cl-lib)
cl-lib

(require 'calc)
calc

(defmath f (n)
(let ((l (reverse (list 0 1 2 3))))
(cond ((<= n 4) (nth (1- n) (reverse l)))
(t (cl-dotimes (i (- n 4))
(push (+ (nth 0 l)
(nth 1 l)
(nth 2 l)
(nth 3 l)) l))
(car l)))))
calcFunc-f

(cl-loop for i from 1 to 10 collect (calcFunc-f i))
(0 1 2 3 6 12 23 44 85 164)

(substring (let ((s (cl-loop for x in (mapcar (lambda (x) (format "%04d" x)) (reverse (cdr (calcFunc-f 10000)))) concat x)))
(let ((a (string-match "[^0]" s)))
(if a (substring s a) s))) 0 50)
"28058566764257248608122072881910525085551777891599"


※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。