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

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

31 位/194 ID中時間01234567891011121314151617181920212223Total
書き込み数0110000000000000000000002



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

書き込みレス一覧

プログラミングのお題スレ Part5
357 ：デフォルトの名無しさん[sage]：2014/10/21(火) 01:50:53.29 ID:u6hR3S9i
>>339 Emacs Lisp

% cat example1.txt
6
2
3
1
3
4
3

% cat example1.txt | emacs -batch -Q --eval='(progn (require (quote cl-lib)) (let (l) (cl-loop (let ((x (ignore-errors (read)))) (if x (push x l) (cl-return))))
> (print (apply (quote max) (cl-mapcon (lambda (x) (when (cdr x) (list (- (apply (quote max) x) (car x))))) (reverse l))))))' | sed 's/Lisp expression://g'
3
プログラミングのお題スレ Part5
358 ：デフォルトの名無しさん[sage]：2014/10/21(火) 02:19:00.14 ID:u6hR3S9i
>>339 Emacs Lisp

誤 (- (apply (quote max) x) (car x))
正 (- (apply (quote max) (cdr x)) (car x))

% cat example3.txt
10
9
7
4
0

% cat example3.txt | emacs -batch -Q --eval='(progn (require (quote cl-lib)) (let (l) (cl-loop (let ((x (ignore-errors (read)))) (if x (push x l) (cl-return))))
> (print (apply (quote max) (cl-mapcon (lambda (x) (when (cdr x) (list (- (apply (quote max) (cdr x)) (car x))))) (reverse l))))))' | sed 's/Lisp expression://g'
-1


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