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

[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次 1-新

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

819: 2019/04/20(土)18:57 ID:4zW2+iPl(1)調 AAS
また数学か・・・

820: 2019/04/20(土)19:51 ID:JrfgKJuX(1)調 AAS
しょっちゅう出てくるけどこれ宿題か？

821: 2019/04/20(土)23:55 ID:R45IcBKG(2/2)調 AAS
宿題じゃないんやけどなー
12/38 7/38 23959256988683736880737131790625/1444 => ?　の答えと円周上の格子点一覧…俺が間違えてなければ
https://pastebin.com/pnGbWPfM

822(1): 2019/04/21(日)00:12 ID:E83GoNC+(1)調 AAS
コードを出せコードを！

823: 2019/04/21(日)01:28 ID:TAIIcaTj(1)調 AAS
プログラムでの解き方が思い付かないわ
円の方程式に整数代入して満たすかみればいいのか？

824: 2019/04/21(日)02:14 ID:H/Se0iAi(1)調 AAS
解法を考えるのも回答能力のうちだからね
今の時代、参照・検索も当然可だけれど

825(1): 2019/04/21(日)06:09 ID:/+hkU7cH(1/2)調 AAS
>>817
割り算が%とか、そのモジュール書いた奴、頭腐ってんじゃないの？

826: 2019/04/21(日)13:14 ID:ay9waDdy(1)調 AAS
>>825
？
>>816 見てないの？
Haskellでは少数を返す割り算は「/」、整数を返す割り算は「`div`」と返す型で使い分ける。
「%」が返すのは分数型(Rational)

827: 2019/04/21(日)14:45 ID:/+hkU7cH(2/2)調 AAS
やっぱ頭腐ってるな。

828: 2019/04/24(水)20:43 ID:NALZs80Z(1/4)調 AAS
お題: 日本語の文章の句読点を , や . に置き換える。
ただし、, や . の直後には半角のスペースを置き、さらに改行の手前や文末のスペースは削除すること。

例:
In < これは、日本語の文章です。ふひひ。
Out > これは, 日本語の文章です. ふひひ.

829: 2019/04/24(水)20:50 ID:WcGowxU3(1)調 AAS
しょうもな

830: 2019/04/24(水)20:51 ID:Y8OSWYHv(1/2)調 AAS
文末のスペースが消えてないやん
どっちやねん

832: 2019/04/24(水)20:54 ID:NALZs80Z(3/4)調 AAS
>>831
×（出力は中央揃え）
〇（例は中央揃え）

833(1): 2019/04/24(水)21:01 ID:Y8OSWYHv(2/2)調 AAS
bとeが中央じゃなくね

834(1): 2019/04/24(水)21:05 ID:NALZs80Z(4/4)調 AAS
>>833
例に使ったスクリプトがバグってた

835: 2019/04/24(水)22:36 ID:lwqMqFKi(1)調 AAS
左のaとcもおかしい

836: 2019/04/24(水)23:50 ID:NSCbK96M(1)調 AAS
各列の文字数は一致する必要があるのか

837(1): 2019/04/25(木)04:26 ID:D6NtakiX(1/2)調 AAS
>>831
入出力のエンコードは？
ASCII以外はあるのか？

838: 2019/04/25(木)05:01 ID:XVamjpPA(1/2)調 AAS
>>837
ASCIIのみで

839(1): 2019/04/25(木)07:44 ID:XVamjpPA(2/2)調 AAS
>>834
いやバグってなかったわ
>>831
が正常
| の前後に*が一つ入るから
| の前後の*は入れても入れなくてもいいけど入れたほうが綺麗になるかもしれん

840: 2019/04/25(木)10:34 ID:J1W60oTI(1/2)調 AAS
「綺麗」とか言うお気持ちワードが入るとダメだな

841: 2019/04/25(木)10:41 ID:aGd2Nt87(1)調 AAS
「楽しいプログラミング」ｗ
「美しく書ける」ｗｗ

842: 2019/04/25(木)12:39 ID:J1W60oTI(2/2)調 AAS
何がキレイなのか定義出来ず言うことが主観でコロコロ変わる、マジで今の日本のサイコパス上司そのものだ
「オレの心情をさっしろ」みたいな屑がいいそうなこと
頭が悪いから定義が出来ないし自分の言ってることが支離滅裂になってる
曖昧な用語（綺麗）で押し通そうとする
コレ全部サイコパスの特徴

843(1): 2019/04/25(木)13:02 ID:pYdb89HV(1)調 AAS
美を定義できる人間がいるなら会いたいものだ

844(1): 2019/04/25(木)13:47 ID:BUlwZIC7(1)調 AAS
>>843
プラトンのスュンポスィオーンって本で定義されてたぞ

845(1): 2019/04/25(木)16:18 ID:ThHN2jz5(1)調 AAS
美しいコードなんて求められてない。小学生でも知ってる。
https://tr.twipple.jp/ps/3f/af4715.html

846: 2019/04/25(木)18:30 ID:/IwwINNy(1/2)調 AAS
美しい半角カナ

847(2): 2019/04/25(木)18:35 ID:/IwwINNy(2/2)調 AAS
>>845
変数に日本語が使えないとか書いてあるな。
Javaとか普通に使えるんだがな。

848: ◆QZaw55cn4c 2019/04/25(木)20:27 ID:6xUIrXDu(1)調 AAS
>>844
倉橋由美子のが面白かったと思っています

849: 2019/04/25(木)22:32 ID:siWhi4pR(1)調 AAS
>>847
そんなに日本語使いたいならなでしこでも書いとけ

850: 2019/04/25(木)22:33 ID:X6smEgNz(1)調 AAS
>>847 そんな大昔の話をするなよ。今はPython3 なんだから日本語も使えるよ。

なな = 7
print(なな)
# 7

851(1): 2019/04/25(木)23:27 ID:jZ4+eHeJ(1)調 AAS
今時C++とかでも普通に日本語識別子使えるだろ…

852: 2019/04/25(木)23:39 ID:D6NtakiX(2/2)調 AAS
>>851
あ、そうなの？
知らなかった。

853(2): 2019/04/26(金)18:55 ID:YRtkzMZR(1)調 AAS
>>831
Kotlin
https://paiza.io/projects/RCbBPGrxaB1uoB-tj_1hJg
入力は1行目に 0, 1, 2 の何れかのオプションを指定する。
意味は　0=中央、1=左寄せ、2=右寄せ　になっている。
2行目からは | 区切りで文字列を入れる。
空行またはファイルの終わりで表を出力する。
空行だった場合はまた次の表の最初のオプションから入れられる。

854(1): 2019/04/26(金)19:49 ID:RVSBatxL(1)調 AAS
>>853
ほとぼりが冷めたと思ってんのか屑？
お前が>>839だろ
ID変わったからっていい気になんなよ

ゴミみたいな出力のまさにゴミだ
全然綺麗じゃない

855: 853 2019/04/27(土)04:31 ID:dVFnhFQW(1)調 AAS
>>854
違うよ。俺はもっと上の方であみだくじのお題を出したやつだよ。
自分でもプログラム作るには作ったけど表示するところまでだな。
しかしブラウザの実行環境で表示すると罫線の幅の問題でずれるので画像で出力しようかと思っている。
これな。
https://paiza.io/projects/2mINZHiEB6ciPWHEpkCJig

856(1): 2019/04/27(土)15:02 ID:TtYrpMGa(1)調 AAS
お題：ジョブショップスケジューリングの問題です。
int job_param[JOBNUM][STP][2] = {

{{4, 342}, {1, 244}, {2, 351}, {3, 293}, {0, 342}}, // 1572

{{2, 306}, {4, 342}, {3, 386}, {1, 386}, {0, 413}}, // 1833

{{3, 168}, {0, 266}, {2, 182}, {1, 106}, {4, 368}}, // 1090

{{3, 368}, {2, 151}, {4, 284}, {0, 84}, {1, 164}}, // 1051

{{4, 240}, {1, 191}, {0, 351}, {3, 408}, {2, 275}}, // 1465

{{2, 342}, {3, 351}, {4, 191}, {0, 333}, {1, 426}}, // 1643

{{0, 93}, {1, 235}, {2, 422}, {3, 244}, {4, 151}}, // 1145

{{0, 75}, {4, 217}, {1, 111}, {3, 195}, {2, 435}}, // 1033

{{2, 173}, {4, 435}, {3, 186}, {1, 137}, {0, 53}}, // 984

{{1, 93}, {2, 231}, {4, 71}, {3, 115}, {0, 315}}}; // 825

857: 2019/04/27(土)16:10 ID:nhVWQaIp(1)調 AAS
宿題は自分でやれ

858: 2019/04/27(土)16:24 ID:VMurKVDA(1)調 AAS
まずジョブスケジューリングが何か説明してもらおう

859: 2019/04/27(土)17:28 ID:PUfIYz8D(1/2)調 AAS
適当に詰めて行くプログラムで2928まではなった

h0 0-75 g0 75-168 c1 168-434 e2 434-785 j4 1002-1317 d3 1505-1589 f3 1696-2029 b4 2029-2442 a4 2442-2784 i4 2875-2928
j0 0-93 e1 240-431 h2 457-568 a1 799-1043 g1 1043-1278 c3 1385-1491 b3 1607-1993 d4 1993-2157 f4 2157-2583 i3 2738-2875
f0 0-342 j1 342-573 b0 573-879 i0 879-1052 d1 1052-1203 c2 1203-1385 a2 1385-1736 g2 1736-2158 e4 2158-2433 h4 2433-2868
c0 0-168 d0 168-536 f1 536-887 j3 887-1002 h3 1002-1197 b2 1221-1607 e3 1607-2015 a3 2015-2308 g3 2308-2552 i2 2552-2738
e0 0-240 h1 240-457 a0 457-799 j2 799-870 b1 879-1221 d2 1221-1505 f2 1505-1696 c4 1696-2064 i1 2064-2499 g4 2552-2703

860: 2019/04/27(土)17:44 ID:PUfIYz8D(2/2)調 AAS
今2889になってたけどSegmentation faultで落ちてた
前回のやつでJOBNUMとかSTPとかをわざわざ直接5 5とか書いてて
今回どんなコードかもう忘れて片方を適当に10に直したからか元からバグがあったのか分からないけど
結果自体は間違ってなそうだと思うけど

861: 818 2019/04/27(土)18:03 ID:63A0HxGX(1)調 AAS
>>818の(最適化していない)コード Java
https://ideone.com/72sNsk

>>822
出したで

862: 2019/04/28(日)08:12 ID:3xnz0I0C(1)調 AAS
>>856
COST_TIME: 2932
0 : ( 4, 457, 799), ( 1, 800, 1044), ( 2, 1275, 1626), ( 3, 2017, 2310), ( 0, 2417, 2759)
1 : ( 2, 573, 879), ( 4, 880, 1222), ( 3, 1223, 1609), ( 1, 1610, 1996), ( 0, 2004, 2417)
2 : ( 3, 0, 168), ( 0, 784, 1050), ( 2, 1093, 1275), ( 1, 1279, 1385), ( 4, 2389, 2757)
3 : ( 3, 168, 536), ( 2, 942, 1093), ( 4, 1586, 1870), ( 0, 1920, 2004), ( 1, 2473, 2637)
4 : ( 4, 0, 240), ( 1, 241, 432), ( 0, 433, 784), ( 3, 1609, 2017), ( 2, 2221, 2496)
5 : ( 2, 0, 342), ( 3, 536, 887), ( 4, 1395, 1586), ( 0, 1587, 1920), ( 1, 2047, 2473)
6 : ( 0, 75, 168), ( 1, 1044, 1279), ( 2, 1799, 2221), ( 3, 2310, 2554), ( 4, 2757, 2908)
7 : ( 0, 0, 75), ( 4, 240, 457), ( 1, 458, 569), ( 3, 892, 1087), ( 2, 2496, 2931)
8 : ( 2, 1626, 1799), ( 4, 1954, 2389), ( 3, 2554, 2740), ( 1, 2741, 2878), ( 0, 2879, 2932)
9 : ( 1, 0, 93), ( 2, 342, 573), ( 4, 799, 870), ( 3, 1087, 1202), ( 0, 1203, 1518)

MACHINE Schedule
0 : ( 7, 0, 75), ( 6, 75, 168), ( 4, 433, 784), ( 2, 784, 1050), ( 9, 1203, 1518), ( 5, 1587, 1920), ( 3, 1920, 2004), ( 1, 2004, 2417), ( 0, 2417, 2759), ( 8, 2879, 2932)
1 : ( 9, 0, 93), ( 4, 241, 432), ( 7, 458, 569), ( 0, 800, 1044), ( 6, 1044, 1279), ( 2, 1279, 1385), ( 1, 1610, 1996), ( 5, 2047, 2473), ( 3, 2473, 2637), ( 8, 2741, 2878)
2 : ( 5, 0, 342), ( 9, 342, 573), ( 1, 573, 879), ( 3, 942, 1093), ( 2, 1093, 1275), ( 0, 1275, 1626), ( 8, 1626, 1799), ( 6, 1799, 2221), ( 4, 2221, 2496), ( 7, 2496, 2931)
3 : ( 2, 0, 168), ( 3, 168, 536), ( 5, 536, 887), ( 7, 892, 1087), ( 9, 1087, 1202), ( 1, 1223, 1609), ( 4, 1609, 2017), ( 0, 2017, 2310), ( 6, 2310, 2554), ( 8, 2554, 2740)
4 : ( 4, 0, 240), ( 7, 240, 457), ( 0, 457, 799), ( 9, 799, 870), ( 1, 880, 1222), ( 5, 1395, 1586), ( 3, 1586, 1870), ( 8, 1954, 2389), ( 2, 2389, 2757), ( 6, 2757, 2908)

863(1): 2019/04/28(日)19:46 ID:4L316qYF(1)調 AAS
COST_TIME: 2868
0 : ( 4, 457, 799), ( 1, 800, 1044), ( 2, 1212, 1563), ( 3, 2017, 2310), ( 0, 2410, 2752)
1 : ( 2, 573, 879), ( 4, 880, 1222), ( 3, 1223, 1609), ( 1, 1610, 1996), ( 0, 1997, 2410)
2 : ( 3, 0, 168), ( 0, 169, 435), ( 2, 1030, 1212), ( 1, 1213, 1319), ( 4, 2326, 2694)
3 : ( 3, 168, 536), ( 2, 879, 1030), ( 4, 1523, 1807), ( 0, 1857, 1941), ( 1, 2703, 2867)
4 : ( 4, 0, 240), ( 1, 241, 432), ( 0, 435, 786), ( 3, 1609, 2017), ( 2, 2158, 2433)
5 : ( 2, 0, 342), ( 3, 536, 887), ( 4, 1332, 1523), ( 0, 1524, 1857), ( 1, 1996, 2422)
6 : ( 0, 75, 168), ( 1, 1319, 1554), ( 2, 1736, 2158), ( 3, 2310, 2554), ( 4, 2694, 2845)
7 : ( 0, 0, 75), ( 4, 240, 457), ( 1, 458, 569), ( 3, 887, 1082), ( 2, 2433, 2868)
8 : ( 2, 1563, 1736), ( 4, 1891, 2326), ( 3, 2379, 2565), ( 1, 2566, 2703), ( 0, 2752, 2805)
9 : ( 1, 0, 93), ( 2, 342, 573), ( 4, 799, 870), ( 3, 1082, 1197), ( 0, 1198, 1513)

MACHINE Schedule
0 : ( 7, 0, 75), ( 6, 75, 168), ( 2, 169, 435), ( 4, 435, 786), ( 9, 1198, 1513), ( 5, 1524, 1857), ( 3, 1857, 1941), ( 1, 1997, 2410), ( 0, 2410, 2752), ( 8, 2752, 2805)
1 : ( 9, 0, 93), ( 4, 241, 432), ( 7, 458, 569), ( 0, 800, 1044), ( 2, 1213, 1319), ( 6, 1319, 1554), ( 1, 1610, 1996), ( 5, 1996, 2422), ( 8, 2566, 2703), ( 3, 2703, 2867)
2 : ( 5, 0, 342), ( 9, 342, 573), ( 1, 573, 879), ( 3, 879, 1030), ( 2, 1030, 1212), ( 0, 1212, 1563), ( 8, 1563, 1736), ( 6, 1736, 2158), ( 4, 2158, 2433), ( 7, 2433, 2868)
3 : ( 2, 0, 168), ( 3, 168, 536), ( 5, 536, 887), ( 7, 887, 1082), ( 9, 1082, 1197), ( 1, 1223, 1609), ( 4, 1609, 2017), ( 0, 2017, 2310), ( 6, 2310, 2554), ( 8, 2379, 2565)
4 : ( 4, 0, 240), ( 7, 240, 457), ( 0, 457, 799), ( 9, 799, 870), ( 1, 880, 1222), ( 5, 1332, 1523), ( 3, 1523, 1807), ( 8, 1891, 2326), ( 2, 2326, 2694), ( 6, 2694, 2845)

864(1): 2019/04/28(日)23:28 ID:l2GeSHcv(1)調 AAS
>>863
3 : ( 2, 0, 168), ( 3, 168, 536), ( 5, 536, 887), ( 7, 887, 1082), ( 9, 1082, 1197), ( 1, 1223, 1609), ( 4, 1609, 2017), ( 0, 2017 , 2310), ( 6, 2310, 2554), ( 8, 2379, 2565)

( 6, 2310, 2554), ( 8, 2379, 2565)
ここが重複してるから間違ってる

865: 2019/04/29(月)05:34 ID:8r4CfxJG(1)調 AAS
>>864
ご指摘ありがとうございます。

866(1): 2019/05/02(木)08:14 ID:y6AdJjmd(1)調 AAS
お題：ジョブショップスケジューリングの問題です。
int job_param[JOBNUM][STP][2] = {
{{4, 100}, {1, 100}, {2, 100}, {3, 100}, {0, 100}}, // 500
{{2, 100}, {4, 100}, {3, 100}, {1, 100}, {0, 100}}, // 500
{{3, 100}, {0, 100}, {2, 100}, {1, 100}, {4, 100}}, // 500
{{3, 100}, {2, 100}, {4, 100}, {0, 100}, {1, 100}}, // 500
{{4, 100}, {1, 100}, {0, 100}, {3, 100}, {2, 100}}, // 500
{{2, 100}, {3, 100}, {4, 100}, {0, 100}, {1, 100}}, // 500
{{0, 100}, {1, 100}, {2, 100}, {3, 100}, {4, 100}}, // 500
{{0, 100}, {4, 100}, {1, 100}, {3, 100}, {2, 100}}, // 500
{{2, 100}, {4, 100}, {3, 100}, {1, 100}, {0, 100}}, // 500
{{1, 100}, {2, 100}, {4, 100}, {3, 100}, {0, 100}}}; // 500

867: 2019/05/02(木)10:15 ID:uedhNxa1(1)調 AAS
死ね

868: 2019/05/02(木)10:36 ID:aiQlF5oy(1)調 AAS
>>866
時間全部同じなら1にしちゃってえーんちゃう？

869: 2019/05/02(木)12:40 ID:6TxNQP9X(1)調 AAS
死んで良し。こんな長たらしいのを貼るなんて迷惑。
どこかに貼ってリンクだけにしろ。

870: 2019/05/03(金)00:09 ID:zqE/J/GT(1)調 AAS
>>831
C https://ideone.com/UPx6IS
もうどうでもいいかもしれんが、各列で幅調整ができるようにした

871: 2019/05/07(火)18:32 ID:dWjIX09N(1)調 AAS
COST_TIME: 2903
0 : ( 4, 799, 1141), ( 1, 1141, 1385), ( 2, 1385, 1736), ( 3, 2023, 2316), ( 0, 2477, 2819)
1 : ( 2, 0, 306), ( 4, 457, 799), ( 3, 1114, 1500), ( 1, 1500, 1886), ( 0, 1980, 2393)
2 : ( 3, 368, 536), ( 0, 913, 1179), ( 2, 1203, 1385), ( 1, 1385, 1491), ( 4, 2122, 2490)
3 : ( 3, 0, 368), ( 2, 1052, 1203), ( 4, 1838, 2122), ( 0, 2393, 2477), ( 1, 2639, 2803)
4 : ( 4, 0, 240), ( 1, 240, 431), ( 0, 562, 913), ( 3, 1615, 2023), ( 2, 2593, 2868)
5 : ( 2, 306, 648), ( 3, 763, 1114), ( 4, 1141, 1332), ( 0, 1332, 1665), ( 1, 1886, 2312)
6 : ( 0, 75, 168), ( 1, 568, 803), ( 2, 1736, 2158), ( 3, 2508, 2752), ( 4, 2752, 2903)
7 : ( 0, 0, 75), ( 4, 240, 457), ( 1, 457, 568), ( 3, 568, 763), ( 2, 2158, 2593)
8 : ( 2, 879, 1052), ( 4, 1403, 1838), ( 3, 2316, 2502), ( 1, 2502, 2639), ( 0, 2819, 2872)
9 : ( 1, 0, 93), ( 2, 648, 879), ( 4, 1332, 1403), ( 3, 1500, 1615), ( 0, 1665, 1980)

MACHINE Schedule
0 : ( 7, 0, 75), ( 6, 75, 168), ( 4, 562, 913), ( 2, 913, 1179), ( 5, 1332, 1665), ( 9, 1665, 1980), ( 1, 1980, 2393), ( 3, 2393, 2477), ( 0, 2477, 2819), ( 8, 2819, 2872)
1 : ( 9, 0, 93), ( 4, 240, 431), ( 7, 457, 568), ( 6, 568, 803), ( 0, 1141, 1385), ( 2, 1385, 1491), ( 1, 1500, 1886), ( 5, 1886, 2312), ( 8, 2502, 2639), ( 3, 2639, 2803)
2 : ( 1, 0, 306), ( 5, 306, 648), ( 9, 648, 879), ( 8, 879, 1052), ( 3, 1052, 1203), ( 2, 1203, 1385), ( 0, 1385, 1736), ( 6, 1736, 2158), ( 7, 2158, 2593), ( 4, 2593, 2868)
3 : ( 3, 0, 368), ( 2, 368, 536), ( 7, 568, 763), ( 5, 763, 1114), ( 1, 1114, 1500), ( 9, 1500, 1615), ( 4, 1615, 2023), ( 0, 2023, 2316), ( 8, 2316, 2502), ( 6, 2508, 2752)
4 : ( 4, 0, 240), ( 7, 240, 457), ( 1, 457, 799), ( 0, 799, 1141), ( 5, 1141, 1332), ( 9, 1332, 1403), ( 8, 1403, 1838), ( 3, 1838, 2122), ( 2, 2122, 2490), ( 6, 2752, 2903)

872: 2019/05/07(火)19:09 ID:T//WWibe(1)調 AAS
死ねやマジで

873: 2019/05/09(木)08:23 ID:iHKmUIWi(1)調 AAS
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)

874: 2019/05/09(木)09:37 ID:pu1Iu6no(1)調 AAS
ここはプログラミングのお題スレであって結果と思われる出力を書き込むスレではない。

875(13): 2019/05/09(木)19:00 ID:n0QdGvKz(1)調 AAS
コラッツ数列を作る関数chainを書け

コラッツ数列の定義

任意の自然数から開始する
数が 1ならば、終了
数が偶数なら、 2で割る
数が奇数なら、 3倍して 1を足す
新しい値でこのアルゴリズムを繰り返す

使用例

>chain 10
[ 1 0 , 5 , 1 6 , 8 , 4 , 2 , 1 ]

>chain 1
[ 1 ]

>chain 30
[ 3 0 , 1 5 , 4 6 , 2 3 , 7 0 , 3 5 , 1 0 6 , 5 3 , 1 6 0 , 8 0 , 4 0 , 2 0 , 1 0 , 5 , 1 6 , 8 , 4 , 2 , 1 ]

876(1): 2019/05/09(木)21:28 ID:V3giiBFx(1)調 AAS
>>875 C
https://ideone.com/vpQG5P

877(16): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/05/09(木)22:20 ID:sZO2t0w0(1)調 AAS
お題: 改行とスペースを含むASCII文字列が与えられる。
改行とスペース以外の各印字可能文字の位置を以下のように順番に出力せよ。

(入力)
a b c

d
(出力)
[a, 0, 0]
[b, 2, 0]
[c, 5, 0]
[d, 0, 2]

878: 2019/05/10(金)08:21 ID:Z1uC1A15(1/2)調 AAS
>>875
python

def chain(n):
lst = []
if n < 1: raise ValueError("Please n > 0 number")
while n != 1:
lst.append(n)
if n % 2 == 0: n //= 2
else: n = n * 3 + 1
lst.append(1)
return lst

for i in [10,1,30,0]: print(chain(i))

879: 2019/05/10(金)08:24 ID:Z1uC1A15(2/2)調 AAS
>>875
Haskell

main = mapM_ (print.chain) [10,1,30,0]

chain 1 = [1]
chain n | n < 1 = error "Please n > 0 number"
chain n | even n = n:chain (n `div` 2)
chain n = n:chain (n * 3 + 1)

880(1): 2019/05/10(金)11:11 ID:VtNtFyvg(1)調 AAS
>>875

C
https://ideone.com/mBt0yE

1未満の値の判定はchain関数に実装すべきなのかどうなのか……

881(1): 2019/05/10(金)11:56 ID:sggjdX/2(1)調 AAS
>>877
[c, 5, 0]？
[c, 4, 0]じゃなくて？

882: さすらいの蟻人間 ◆T6xkBnTXz7B0 2019/05/10(金)12:18 ID:8LSsTFj9(1)調 AAS
>>877 >>881
4の間違いでした。訂正。

883: 2019/05/10(金)12:30 ID:k7gY5pMP(1/3)調 AAS
>>877
出力は、行列番号が0から始まるとして
文字,列番号、行番号　だと思うから　c の列番号は間違ってるんじゃないの？
(入力)
a b c

d
(出力)
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]　＜＜　5じゃなくて4だろ。
[d, 0, 2]

884(1): 2019/05/10(金)12:47 ID:6xQjM2XG(1)調 AAS
>>876,880
この問題、入門書から抜粋したけど次に1ー100の間に長さ15以上は何個あるかとか出てるから、
Cだとリストから作らないといけないのは分かるが、リスト返す様にした方が仕様変更に強いと思う。

885: 2019/05/10(金)12:53 ID:KAkBQh2y(1/2)調 AAS
宿題誘導か
最近のアホは小賢しいな

886(2): 2019/05/10(金)13:27 ID:k7gY5pMP(2/3)調 AAS
>>877　python

st = '''a b c

d
'''
line = 0 ; col = 0
for c in st :
__if c == '\n' :
____line += 1
____col = 0
____continue
__if c != ' ' :
____print ('['+c, col,str(line)+']', sep=',')
__col += 1

887: 2019/05/10(金)13:40 ID:k7gY5pMP(3/3)調 AAS
>>886　出力フォーマットが
['a', 0, 0]
['b', 2, 0]
['c', 4, 0]
['d', 0, 2]
でもよければ print文は簡単になる
print ([c, col,line])

888(6): さすらいの蟻人間 ◆T6xkBnTXz7B0 2019/05/10(金)14:51 ID:CF7UUf9v(1)調 AAS
お題: >>877 の入出力を逆転。

889: 2019/05/10(金)15:12 ID:bODSyEKx(1)調 AAS
>>888 手抜きすんな面白くない

890(1): 2019/05/10(金)15:43 ID:aTy0NCJ4(1)調 AAS
>>875
与えられた数の3倍以上の個数を持つ系列を
を3個示せ。

891: 2019/05/10(金)17:50 ID:58PV3kUA(1)調 AAS
>>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 "

892: 2019/05/10(金)20:05 ID:0Zlxa6bH(1)調 AAS
>>875
Perl のワンライナー。

perl -ne '$n=$_;chomp($n);@d=($n);while($n!=1){$n=$n&1?($n*3+1):($n/2);push(@d,$n)}print "[".join(", ", @d)."]\n"'

実行する場合はbash等のシェルから行う(シングルクォートの中がそのままperlに引き渡されさえすれば他のシェルでも良い)。

標準入力から1行1データで入力して結果を出力するようにした。

893: 2019/05/10(金)20:29 ID:/+/am3CQ(1)調 AAS
>>890
27のとき112個
31のとき107個
10億くらいまで回したけど、これら以外なくね？

数列の初期値と長さは、初期値が小さいうちは同じくらいだが、初期値を大きくしても数列の長さはさほど伸びない。
https://imgur.com/wm0kCEQ

グラフはxが大きくなるほど飛ばす間隔も大きくしてあるからあまり正確ではない。

894: 2019/05/10(金)21:48 ID:LM2YqzO0(1)調 AAS
お題
https://www.youtube.com/watch?v=2JNgkMMaNlw

このようなルートの数を数え上げるプログラムを作る
N=5位まででよい

895: 2019/05/10(金)22:09 ID:KAkBQh2y(2/2)調 AAS
ZDDやるなら出来合いのもの使って終わりじゃねえの？

https://github.com/junkawahara/frontier-basic
https://hs-nazuna.github.io/tdzdd-manual/intro.html

896: 2019/05/11(土)11:54 ID:Ze1v8w/9(1/2)調 AAS
>>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]

897: 2019/05/11(土)12:16 ID:Ze1v8w/9(2/2)調 AAS
>>877 Perl5

@in = map{[split'']} map{split '\n'} <<EOF;
a b c

d
EOF
for $j (0..$#in) {
　for $i (0..$#{$in[$j]}) {
　　$c = $in[$j][$i];
　　print "[$c,$i,$j]\n" if $c =~ /\w/;
　}
}

実行
~ $ perl 13_877.pl
[a,0,0]
[b,2,0]
[c,4,0]
[d,0,2]

898: 2019/05/11(土)13:06 ID:bKjSBhWB(1)調 AAS
>>875
Ruby で

module Collatz
def self.next_number( num )
if num.even? # 偶数
num / 2
else # 奇数
num * 3 + 1
end
end

def self.chain( num )
@@results = [ ]
tmp = num

while true
@@results.push tmp
break if tmp == 1

tmp = next_number( tmp )
end
@@results
end
end

[ 1, 27 ].each do | num |
p Collatz.chain( num )
end

899: 2019/05/11(土)18:55 ID:fAbbaveG(1/2)調 AAS
>>875 c
https://ideone.com/jwtvbF

>>875 ruby
https://ideone.com/MIKeM7

>>875 ocaml
https://ideone.com/CEassZ

900: 2019/05/11(土)20:54 ID:wddfxsLz(1)調 AAS
ideone.comはMATLABに対応してないのね。
書いてみた後で気がついた。

901: 2019/05/11(土)23:44 ID:fAbbaveG(2/2)調 AAS
>>875 octave
https://ideone.com/eNqIim

902: 2019/05/12(日)02:01 ID:FbICTnq7(1)調 AAS
>>875
Java
https://paiza.io/projects/VSqA-UZgWeXB-YzVTnrQRg

takeUntilが欲しいなー

903: 2019/05/12(日)06:46 ID:R9TUiFuu(1)調 AAS
>>875
コラッツ樹で作れば出力を減らせる。

904: 2019/05/14(火)02:59 ID:3xJ0OqNt(1)調 AAS
>>877
Kotlin
https://paiza.io/projects/Aab0mA1WSwXHnHL2049hCA

for や while ループ使わずに forEachIndexed で入れ子にしてみました。

905(2): 2019/05/14(火)09:26 ID:zeev4Evh(1)調 AAS
>>877
Ruby で

text = <<"EOT"
a b c

d
EOT

re = /[^ ]+/ # 空白以外

text.each_line.with_index do | line, idx | # 1行ずつ処理する
line.strip! # trim
# $~.begin は、マッチした先頭文字の位置
line.scan( re ) { puts "[" + [ $~.to_s, $~.begin(0), idx ].join( ", " ) + "]" }
end

906: 2019/05/14(火)10:07 ID:rKVVoOG1(1)調 AAS
>>886 をスッキリ修正してみた
改行コード指定をやめ、for loop のカウンタを利用

>>877 の解

st = '''a b c

d
'''
for line,l in enumerate(st.splitlines()) :
　for col,c in enumerate(l):
　　if c != ' ' : print('['+c, col,str(line)+']',sep=',')

907(1): 2019/05/14(火)14:12 ID:8QdSJZ63(1)調 AAS
>>905
空白以外は\Sでマッチするぞ

908(2): 2019/05/14(火)23:52 ID:AtHJrRxM(1)調 AAS
>>877 Squeak Smalltalk

| fn |

fn := [:str |
((str lines collectWithIndex: [:line :lIdx |
(line reject: #isSeparator) asArray
collect: [:chr | {chr. (line indexOf: chr) - 1. lIdx - 1}]]
) concatenation select: #notEmpty) asStringWithCr
].

fn value: 'a b c

d'

"=>
'#($a 0 0)
#($b 2 0)
#($c 4 0)
#($d 0 2)' "

909: 2019/05/15(水)01:06 ID:tCUIeJeC(1)調 AAS
>>908 smalltalk って全く知らないけど、最後が出力のつもり？
だったらお題の出力フォーマットと似ても似つかないじゃん。

910: 2019/05/15(水)03:57 ID:i8y0s24p(1)調 AAS
いや似てる

911: 2019/05/15(水)04:50 ID:TsVBVaTo(1)調 AAS
>>877 Squeak/Pharo Smalltalk
出力はともかく同行に同文字があるとダメだった^^;ので>>908 差し替え

| fn |

fn := [:str |
((str lines collectWithIndex: [:line :lIdx |
(line asArray collectWithIndex: [:chr :cIdx | {chr. cIdx - 1. lIdx - 1}]
) reject: [:each | each first isSeparator]]
) concatenation
select: #notEmpty thenCollect: [:each | '[{1}, {2}, {3}]' format: each]) asStringWithCr
].

fn value: 'a b c

d'

"=>
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2] "

912: 905 2019/05/15(水)09:57 ID:AfKgri37(1)調 AAS
>>907
re = /[^ ]+/
空白以外だから、上のようにしたけど、空白"類"以外なら、\S+ でよい

問題の意図がどちらなのか、よく分からない

913(3): 2019/05/15(水)23:43 ID:jmndeABE(1)調 AAS
>>877 c
https://ideone.com/tIcQPK

>>877 ruby
https://ideone.com/qMREyy

>>877 ocaml
https://ideone.com/uaNmRF

>>877 octave
https://ideone.com/psnXl5

914(2): 2019/05/16(木)01:50 ID:4fy8zsNP(1)調 AAS
>>913
C以外は助長だな

915: 2019/05/16(木)03:57 ID:6BLr95cC(1)調 AAS
>>914
具体的にはどの処理のどの部分を冗長に感じられたのでしょうか？
たとえばRubyの回答がどう冗長か（あるいはどう書けば良いか）教えてください！

916(1): 2019/05/16(木)08:25 ID:MujhV/Cm(1)調 AAS
>>913 故意にpython 外しはずるい。
>>877 python
https://ideone.com/yvFuOl

printフォーマットは、コメントにしたpython3.6のf文字列の方がシンプルだが、ideone は3.5しかないのでformat文にした。

917: 2019/05/16(木)10:18 ID:YVMjr/q8(1/2)調 AAS
>>877
Go
https://ideone.com/mJOisR

コンパクトにならんね

918: 2019/05/16(木)14:34 ID:YVMjr/q8(2/2)調 AAS
>>888
Go
https://ideone.com/x2iyka

上下前次 1-新書関写板覧索設栞歴

あと 84 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.037s