Egi言語

Egi言語で書いたポーカーの役のパターンマッチ。

(define poker_hands
  (lambda (Ks)
    (match Ks (of Multiset (** Mark Mod13))
      ((((S 10) (S 11) (S 12) (S 13) (S 1))
        ())
       "Royal Straight Flush")
      ((((S n) (S n+1) (S n+2) (S n+3) (S n+4))
        ((= n+1 (n) (+ n 1))
         (= n+2 (n) (+ n 2))
         (= n+3 (n) (+ n 3))
         (= n+4 (n) (+ n 4))))
       "Straight Flush")
      ((((_ n) (_ n) (_ n) (_ n) _)
        ())
       "Four of Kind")
      ((((_ m) (_ m) (_ m) (_ n) (_ n))
        ())
       "Full House")
      ((((S _) (S _) (S _) (S _) (S _))
        ())
       "Flush")
      ((((_ n) (_ n+1) (_ n+2) (_ n+3) (_ n+4))
        ((= n+1 (n) (+ n 1))
         (= n+2 (n) (+ n 2))
         (= n+3 (n) (+ n 3))
         (= n+4 (n) (+ n 4))))
       "Straight")
      ((((_ n) (_ n) (_ n) _ _)
        ())
       "Three of Kind")
      ((((_ m) (_ m) (_ n) (_ n) _)
        ())
       "Two Pair")
      ((((_ n) (_ n) _ _ _)
        ())
       "One Pair")
      (((_ _ _ _ _)
        ())
       "Nothing"))))

江東区へ引越し

今月末から妹と同居することになり、今週は物件を探し回っていたのだが、結局江東区亀戸の貸家を借りることにした。
蔵前橋通りと丸八通りの交差点近くにある家で、蔵前通りを真っ直ぐに行けば大学に着くことができる。
自転車だとだいたい40分かかる。
しかし、家は一軒家で3DKと広くて、周りは静かそうな住宅街だし、少し歩けば亀戸の商店街もあるし、妹が家事をしてくれるらしいので、落ち着いた気楽な生活が出来そうだ。