Skip to content

Instantly share code, notes, and snippets.

@xenophobia

xenophobia/Correct-Streight.egi

Created July 27, 2014 19:08
Show Gist options
  • Save xenophobia/bbb2a68a95fed1e59f64 to your computer and use it in GitHub Desktop.
Save xenophobia/bbb2a68a95fed1e59f64 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Correct-Streight.egi
[<cons <card _ $n>
<cons <card _ ,(- n 1)>
<cons <card _ ,(- n 2)>
<cons <card _ ,(- n 3)>
<cons <card _ (& ?(lt? $ 11) ,(- n 4))> ;; ここだけ修正: ,(- n 4) → (& ?(lt? $ 11) ,(- n 4))
<nil>>>>>>
<Straight>]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment