こんにちは、knewjadeです。 今回、HATETIRSで289 linesまで到達することができました。動画はこちら（2022-11-26時点のWorld Recordでした。現在では更新されています。 → David&Felipeの記事）
ここでは、その結果を得るためのアプローチを説明していきたいと思います。
「そもそもHATETRISとは？」という方は、こちらをご参照ください。
knewjade
/ HATETRIS_289lines.md
Last active
April 23, 2026 11:31
Reached 289 lines in HATETRIS using Neural Networks
| Navigates? | declarative? | Makes GET, triggers loader | Makes POST, triggers action | No requests |
|---|---|---|---|---|
| navigates | declarative | <Link to=""><Form method="get"> |
<Form method="post"> |
<Link to="#..."> |
| navigates | imperative | navigate()setSearchParams() |
submit() |
navigate("#") |
| stays | declarative | <fetcher.Form method="get"> |
<fetcher.Form method="post"> |
(doesn't make sense) |
| s |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| fizzbuzz :: Int -> String | |
| fizzbuzz n = fromMaybe (show n) $ | |
| (guard (n `mod` 3 == 0) >> pure "Fizz") <> | |
| (guard (n `mod` 5 == 0) >> pure "Buzz") | |
| main :: IO () | |
| main = forM_ [1..100] $ putStrLn . fizzbuzz |