Etc

[swtw7466]

気ままに書き換えました系。あんまり意味はないです。

こういうパズル：

compile t@(PWord w) = either id (($ t) . (updateTokens .)) =<< lookupCt w

もやってみましたけどさすがにやりすぎかなと思ってコミットしてません。 書いた自分も読めない。

あと cthen ももうちょっと綺麗にならないのかなーと思って あれこれ試してみたんですけどイマイチすっきりしないですね。 いくつか繰り返しを where にまとめるくらいが限度なんでしょうか。なんとも。