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

[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除ﾚｽ栞

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

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

712: デフォルトの名無しさん [] 2019/03/16(土) 06:51:03.68 ID:x9tnPyz1

>>666

Haskell
空文字は出力しないと動かないから許して。(動く場合はmain =でパターンマッチして出力文埋め込むだけだけど)
ソートした自身の書き込み先、実行先は自身じゃ無いといけないとは書いてない。

import System.Process

main = putStr "" >> readFile "runmyself.hs" >>= \f -> writeFile "runmyself2.hs" ((replace.unlines.qsort.lines) f) >> callCommand "runghc runmyself2.hs"

replace [] = []
replace (p:u:t:s:t2:r:x:y:z:xs) | (p:u:t:s:t2:r:x:y:z:[]) == "putStr \"\"" = "putStrLn \"Hello World\"" ++ replace xs
replace (a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15:a16:a17:a18:a19:a20:a21:a22:a23:a24:a25:a26:a27:a28:a29:a30:a31:a32:a33:a34:a35:a36:a37:xs) |
(a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15:a16:a17:a18:a19:a20:a21:a22:a23:a24:a25:a26:a27:a28:a29:a30:a31:a32:a33:a34:a35:a36:a37:[]) == ">> callCommand \"runghc runmyself2.hs\"" = "" ++ replace xs
replace (x:xs) = x:replace xs

qsort [] = []
qsort (x:xs) = qsort [s| s <- xs, s <= x] ++ [x] ++ qsort [l| l <- xs, l > x]

http://mevius.5ch.net/test/read.cgi/tech/1549160513/712

862: デフォルトの名無しさん [] 2019/04/28(日) 08:12:15.68 ID:3xnz0I0C

>>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)

http://mevius.5ch.net/test/read.cgi/tech/1549160513/862

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.035s