[過去ログ] プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002レス)
上下前次1-新
抽出解除 レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
31(6): ◆QZschizo.iSO 2016/12/31(土)18:31 ID:nvhfPpJn(1) AAS
瞬速年忘れ問題
2017は素数か?素数なら何番目か?
32(1): 2016/12/31(土)19:13 ID:39E0aGGL(1/3) AAS
>>31
C
外部リンク:ideone.com
34(1): 2016/12/31(土)22:12 ID:FA/ffAJp(1) AAS
>>31
同じくC
みなさん今年はお世話になりました
外部リンク:paiza.io
36: 2016/12/31(土)22:56 ID:07cXWtfS(1) AAS
>>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
省3
38: 2017/01/01(日)11:09 ID:IDYigKuX(1) AAS
>>31 Squeak/Pharo Smalltalk
(Integer primesUpTo: 2017+1) indexOf: 2017 "=> 306 "
39: 2017/01/01(日)12:49 ID:AcyWguNB(1) AAS
>>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]
40: 2017/01/02(月)13:41 ID:jOTKTTu2(1/2) AAS
>>31
Bash
seq 2017 | factor | awk '{happy = $1;new=0}NF==2{year++;new=1} END{
print happy,new?year "th":"no","prime"}'
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.041s