[過去ﾛｸﾞ]
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1480579110/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
247: デフォルトの名無しさん [] 2017/06/01(木) 13:12:24.25 ID:/fo1vNun ↑ c,o,v,f,e,f,eの7文字をランダムに出力し続け、covfefeが完成するまでの文字数をカウント http://mevius.5ch.net/test/read.cgi/tech/1480579110/247
248: デフォルトの名無しさん [sage] 2017/06/01(木) 13:47:08.78 ID:sszEh+oH >>247 Squeak/Pharo Smalltalk | count covfefe buffer | count := 0. covfefe := 'covfefe' asOrderedCollection. buffer := covfefe copy atAllPut: $*. [ count := count + 1. Transcript nextPut: (buffer removeFirst; add: covfefe atRandom). (count isDivisibleBy: 1000) ifTrue: [Transcript endEntry]. buffer = covfefe ] whileFalse. Transcript endEntry. ^count "= 34301 " http://mevius.5ch.net/test/read.cgi/tech/1480579110/248
249: デフォルトの名無しさん [sage] 2017/06/01(木) 23:30:50.24 ID:MQJNOblg >>247 効率悪いけれど… Perl $w='covfefe'; @l=split '',$w; do { $_ .= $l[int(rand(7))]; } while (!/$w/); print index $_, $w . "\n"; http://mevius.5ch.net/test/read.cgi/tech/1480579110/249
251: デフォルトの名無しさん [sage] 2017/06/02(金) 02:47:24.66 ID:znhUDH9D >>247 Nim import random const word = "covfefe" var count, match = 0 randomize() while match != word.len(): let ch = word[random word.len()] stdout.write ch match = if ch == word[match]: match + 1 else: 0 inc count echo "\n", count http://mevius.5ch.net/test/read.cgi/tech/1480579110/251
254: デフォルトの名無しさん [sage] 2017/06/02(金) 20:36:39.00 ID:GZbUsfWf >>247 ruby covf, buff = 'covfefe', '' buff += covf.chars.sample until buff.end_with? covf p buff.size http://mevius.5ch.net/test/read.cgi/tech/1480579110/254
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.049s