(7 окт 2013, 16:20) (0/0)
[0]
Я на хаскеле соцку пишу,я виртуоз внатури primesST = 2 : 3 : sieve 0 5 9 (drop 2 primesST)
where
sieve k x q ps = let fs = take k (tail primesST) in
[n | n <- [x,x+2..q-2], all ((/=0).rem n) fs]
++ sieve (k+1) (q+2) (head ps^2) (tail ps)
where
sieve k x q ps = let fs = take k (tail primesST) in
[n | n <- [x,x+2..q-2], all ((/=0).rem n) fs]
++ sieve (k+1) (q+2) (head ps^2) (tail ps)
(7 окт 2013, 16:05) (0/0)
[0]
Ratmir,
Вау. на 70% даже разработчики не знают,а ты знаешь. вот эт мастерство. вот это дела
(7 окт 2013, 15:59) (0/0)
[0]
Urban Planet,
в соцку с онлайном 1 человек. и этот 1 человек- ты?
Добавлено 07.10.13 в 15:59:46:
апасно
Добавлено 07.10.13 в 15:59:46:
апасно
- 1 из 1
