[過去ﾛｸﾞ] プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

31(6): ◆QZschizo.iSO [sage] 2016/12/31(土)18:31 ID:nvhfPpJn(1)
瞬速年忘れ問題
2017は素数か？素数なら何番目か？

---

32(1): デフォルトの名無しさん [sage] 2016/12/31(土)19:13 ID:39E0aGGL(1/3)
>>31
C
http://ideone.com/bUbh6M

---

34(1): デフォルトの名無しさん [sage] 2016/12/31(土)22:12 ID:FA/ffAJp(1)
>>31
同じくC
みなさん今年はお世話になりました
https://paiza.io/projects/Sio8sqlqmX547VHnZkpj_Q

---

36: デフォルトの名無しさん [sage] 2016/12/31(土)22:56 ID:07cXWtfS(1)
>>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))

---

38: デフォルトの名無しさん [sage] 2017/01/01(日)11:09 ID:IDYigKuX(1)
>>31 Squeak/Pharo Smalltalk

(Integer primesUpTo: 2017+1) indexOf: 2017 "=> 306 "

---

39: デフォルトの名無しさん [sage] 2017/01/01(日)12:49 ID:AcyWguNB(1)
>>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: デフォルトの名無しさん [sage] 2017/01/02(月)13:41 ID:jOTKTTu2(1/2)
>>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.037s