プログラミングのお題スレ Part8

プログラミングのお題スレ Part8at TECH

プログラミングのお題スレ Part8 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

13:デフォルトの名無しさん
 15/10/09 22:10:18.75 cypHo82J.net
>>4 
Ruby 
1000桁で10秒くらいかかるので5万桁は無理 
http://ideone.com/ggVXBd

14:デフォルトの名無しさん
 15/10/10 23:20:18.23 cCGMMWjY.net
前スレ >>971 Java 
ttp://codepad.org/Mhip6Mpt 
結果 
stdin read 
******************** 
**K***************** 
**S***************** 
**R***************** 
**KK**************** 
**SS************K*** 
***RR**S*******S**** 
***K*K*K******RK**** 
***SS*SR*****KS***** 
***R***S***KSR****** 
**KK***K**S*K******* 
*S*S***KSRKS******** 
********K*********** 
*******S*K********** 
*********S*********K 
********SR*KSRKS**S* 
*********K*******R** 
*********SR*SKRSK*** 
***********S***S**** 
************K*******

15:デフォルトの名無しさん
 15/10/11 12:15:41.56 2ua4rw45.net
>>4 
Java 
ttp://codepad.org/f0Rh8cj2

16:デフォルトの名無しさん
 15/10/12 18:26:36.88 oc4xuXaB.net
>>4(2)　Io 
f := method(s, 
　b := list(1, 3, 2, 6, 4, 5) 
　c := 0 
　n :=s size - 1 
　for(i, 0, n, 
　　if(s at(i) - 48 != 0,　 
　　　for(j, i, n, 
　　　　r := 0 
　　　　for(k, 0, j - i, 
　　　　　r = r + (s at(j - k) - 48) * b at(k % 6) 
　　　　) 
　　　　if(r % 7 == 0, c = c + 1) 
　　　) 
　　) 
　) 
　c　 
) 
Io> f("20151012") 
==> 1 
Io> f("1234567890"repeated(10)) 
==> 681

次ページ