Skip to content

Instantly share code, notes, and snippets.

@shino

shino/zd.erl

Last active March 16, 2016 11:21
Show Gist options
  • Save shino/37799738f249cd846e2a to your computer and use it in GitHub Desktop.
Save shino/37799738f249cd846e2a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
zd.erl
> rp((fun F(A) -> case {lists:nth(rand:uniform(2), [z,d]), A} of {d, [z,z,z,z|_]} -> lists:reverse([kys,d|A]); {ZD,A} -> F([ZD|A]) end end )([])).
[d,z,z,d,z,z,d,z,z,z,d,z,z,z,z,z,z,d,kys]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment