[過去ログ]
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002レス)
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1480579110/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
31: ◆QZschizo.iSO [sage] 2016/12/31(土) 18:31:14.25 ID:nvhfPpJn 瞬速年忘れ問題 2017は素数か?素数なら何番目か? http://mevius.5ch.net/test/read.cgi/tech/1480579110/31
32: デフォルトの名無しさん [sage] 2016/12/31(土) 19:13:55.05 ID:39E0aGGL >>31 C http://ideone.com/bUbh6M http://mevius.5ch.net/test/read.cgi/tech/1480579110/32
34: デフォルトの名無しさん [sage] 2016/12/31(土) 22:12:03.44 ID:FA/ffAJp >>31 同じくC みなさん今年はお世話になりました https://paiza.io/projects/Sio8sqlqmX547VHnZkpj_Q http://mevius.5ch.net/test/read.cgi/tech/1480579110/34
36: デフォルトの名無しさん [sage] 2016/12/31(土) 22:56:06.40 ID:07cXWtfS >>31 Emacs Lisp (require 'cl-lib) (defun a (x) (cl-assert (and (integerp x) (> x 1))) (let ((l (let ((max-lisp-eval-depth most-positive-fixnum) (max-specpdl-size most-positive-fixnum)) (b (cl-loop for i from 2 to x collect i))))) (when (= (car (last l)) x) (length l)))) (defun b (l) (when l (cons (car l) (b (cl-remove-if (lambda (x) (= (% x (car l)) 0)) (cdr l)))))) (mapcar (lambda (x) (cons x (a x))) '(2 3 4 5 2017)) ((2 . 1) (3 . 2) (4) (5 . 3) (2017 . 306)) http://mevius.5ch.net/test/read.cgi/tech/1480579110/36
38: デフォルトの名無しさん [sage] 2017/01/01(日) 11:09:07.28 ID:IDYigKuX >>31 Squeak/Pharo Smalltalk (Integer primesUpTo: 2017+1) indexOf: 2017 "=> 306 " http://mevius.5ch.net/test/read.cgi/tech/1480579110/38
39: デフォルトの名無しさん [sage] 2017/01/01(日) 12:49:27.41 ID:AcyWguNB >>31 ruby2.0.0 require 'prime' def f9031(n) Prime.prime?(n) && Prime.each_with_index.find {|p, _| p == n} end p f9031(4), f9031(2), f9031(2017) ↓ false [2, 0] [2017, 305] http://mevius.5ch.net/test/read.cgi/tech/1480579110/39
40: デフォルトの名無しさん [sage] 2017/01/02(月) 13:41:39.67 ID:jOTKTTu2 >>31 Bash seq 2017 | factor | awk '{happy = $1;new=0}NF==2{year++;new=1} END{ print happy,new?year "th":"no","prime"}' http://mevius.5ch.net/test/read.cgi/tech/1480579110/40
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.036s