[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
141: デフォルトの名無しさん [sage] 2019/02/12(火) 12:43:36.37 ID:YxhBMJOC 送信しちゃった https://paiza.io/projects/33hywoLmd5aRCzkTicwRUQ http://mevius.5ch.net/test/read.cgi/tech/1549160513/141
328: デフォルトの名無しさん [sage] 2019/02/23(土) 04:30:09.37 ID:R2s6jSV3 >>326 恥ずかしながらdcコマンド知らなかった…いいねこれ。 ~$ echo "$(seq -s' ' 1 21)$(printf '* %.0s' {1..20})p" | dc 51090942171709440000 http://mevius.5ch.net/test/read.cgi/tech/1549160513/328
377: デフォルトの名無しさん [sage] 2019/02/24(日) 16:12:06.37 ID:ke/CY5a3 >>359 Pharo/Squeak Smalltalk | sleepsort | sleepsort := [:arr | | queue | queue := SharedQueue new. arr do: [:x | [(x * 2) milliSeconds asDelay wait. queue nextPut: x] fork]. (1 to: arr size) inject: #() into: [:acc :idx | acc, {queue next}] ]. sleepsort value: #(2 1 5 10 7 8 3 6 4 9) "=> #(1 2 3 4 5 6 7 8 9 10) " http://mevius.5ch.net/test/read.cgi/tech/1549160513/377
392: デフォルトの名無しさん [sage] 2019/02/25(月) 19:00:24.37 ID:mboQc3Dn >>364 JavaScript [...'hello'].forEach(c=>console.log(c)) または for(let c of 'hello')console.log(c) または console.log([...'hello'].join`\n`) http://mevius.5ch.net/test/read.cgi/tech/1549160513/392
620: デフォルトの名無しさん [] 2019/03/11(月) 21:31:45.37 ID:1OBeL2+Y >>601 Common Lisp, >>614の移植 https://ideone.com/B76Dki http://mevius.5ch.net/test/read.cgi/tech/1549160513/620
819: デフォルトの名無しさん [] 2019/04/20(土) 18:57:22.37 ID:4zW2+iPl また数学か・・・ http://mevius.5ch.net/test/read.cgi/tech/1549160513/819
873: デフォルトの名無しさん [] 2019/05/09(木) 08:23:28.37 ID:iHKmUIWi COST_TIME: 2868 0 : ( 4, 970, 1312), ( 1, 1312, 1556), ( 2, 1807, 2158), ( 3, 2177, 2470), ( 0, 2470, 2812) 1 : ( 2, 0, 306), ( 4, 557, 899), ( 3, 1197, 1583), ( 1, 1583, 1969), ( 0, 1969, 2382) 2 : ( 3, 0, 168), ( 0, 394, 660), ( 2, 1474, 1656), ( 1, 1969, 2075), ( 4, 2222, 2590) 3 : ( 3, 168, 536), ( 2, 1656, 1807), ( 4, 1938, 2222), ( 0, 2382, 2466), ( 1, 2696, 2860) 4 : ( 4, 292, 532), ( 1, 532, 723), ( 0, 723, 1074), ( 3, 1583, 1991), ( 2, 2158, 2433) 5 : ( 2, 306, 648), ( 3, 731, 1082), ( 4, 1312, 1503), ( 0, 1512, 1845), ( 1, 2133, 2559) 6 : ( 0, 75, 168), ( 1, 723, 958), ( 2, 1052, 1474), ( 3, 2470, 2714), ( 4, 2714, 2865) 7 : ( 0, 0, 75), ( 4, 75, 292), ( 1, 292, 403), ( 3, 536, 731), ( 2, 2433, 2868) 8 : ( 2, 879, 1052), ( 4, 1503, 1938), ( 3, 1991, 2177), ( 1, 2559, 2696), ( 0, 2812, 2865) 9 : ( 1, 0, 93), ( 2, 648, 879), ( 4, 899, 970), ( 3, 1082, 1197), ( 0, 1197, 1512) MACHINE Schedule 0 : ( 7, 0, 75), ( 6, 75, 168), ( 2, 394, 660), ( 4, 723, 1074), ( 9, 1197, 1512), ( 5, 1512, 1845), ( 1, 1969, 2382), ( 3, 2382, 2466), ( 0, 2470, 2812), ( 8, 2812, 2865) 1 : ( 9, 0, 93), ( 7, 292, 403), ( 4, 532, 723), ( 6, 723, 958), ( 0, 1312, 1556), ( 1, 1583, 1969), ( 2, 1969, 2075), ( 5, 2133, 2559), ( 8, 2559, 2696), ( 3, 2696, 2860) 2 : ( 1, 0, 306), ( 5, 306, 648), ( 9, 648, 879), ( 8, 879, 1052), ( 6, 1052, 1474), ( 2, 1474, 1656), ( 3, 1656, 1807), ( 0, 1807, 2158), ( 4, 2158, 2433), ( 7, 2433, 2868) 3 : ( 2, 0, 168), ( 3, 168, 536), ( 7, 536, 731), ( 5, 731, 1082), ( 9, 1082, 1197), ( 1, 1197, 1583), ( 4, 1583, 1991), ( 8, 1991, 2177), ( 0, 2177, 2470), ( 6, 2470, 2714) 4 : ( 7, 75, 292), ( 4, 292, 532), ( 1, 557, 899), ( 9, 899, 970), ( 0, 970, 1312), ( 5, 1312, 1503), ( 8, 1503, 1938), ( 3, 1938, 2222), ( 2, 2222, 2590), ( 6, 2714, 2865) http://mevius.5ch.net/test/read.cgi/tech/1549160513/873
891: デフォルトの名無しさん [sage] 2019/05/10(金) 17:50:33.37 ID:58PV3kUA >>875,884 Squeak Smalltalk | chain | chain := [:n | Array streamContents: [:ss | ss nextPut: n. [n > 1] whileTrue: [ss nextPut: (n := n even ifTrue: [n / 2] ifFalse: [n * 3 + 1])] ] ]. chain value: 10. "=> #(10 5 16 8 4 2 1) " (1 to: 100) count: [:n | (chain value: n) size >= 15] "=> 71 " http://mevius.5ch.net/test/read.cgi/tech/1549160513/891
896: デフォルトの名無しさん [sage] 2019/05/11(土) 11:54:01.37 ID:Ze1v8w/9 >>875 Perl5 sub chain { my $i = shift; $i == 1 ? $i : ($i, ($i & 1 ? chain(3*$i + 1) : chain($i / 2))) } for (qw{10 1 30}) { @a = chain $_; print "[@a]\n"; } 実行 ~ $ perl 13_875_collatz.pl [10 5 16 8 4 2 1] [1] [30 15 46 23 70 35 106 53 160 80 40 20 10 5 16 8 4 2 1] http://mevius.5ch.net/test/read.cgi/tech/1549160513/896
972: デフォルトの名無しさん [] 2019/05/17(金) 23:47:24.37 ID:xYITnAAv >>971 あくまで俺の推測だが 一例として、自分自身の数が3のとき自然数から3を除去して (1) 1, 2, 3, 4, 5, 6, ... ↓ (2) 1, 2, NULL, 4, 5, 6, ... NULLになった部分をなくすために4以降を左へシフトする (3) 1, 2, 4, 5, 6, 7, ... こんな感じで(1)の入力を(3)のような出力にする関数じゃないか? ただお題の条件としてはもっとゆるくて、入力はオーバーフローしない範囲の自然数、出力は「自分自身の数」を含まない自然数になれば何でもよくて、 定数関数でもハッシュ関数でもいいはず。 ただし、ある入力に対して必ず決まった値にならなければならず、同じ入力で呼び出すたびに出力が違うのはダメ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/972
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.041s