Skip to content

Instantly share code, notes, and snippets.

@egisatoshi

egisatoshi/shell18.egi

Last active September 2, 2015 02:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save egisatoshi/6b857747de35a54bb20d to your computer and use it in GitHub Desktop.
Save egisatoshi/6b857747de35a54bb20d to your computer and use it in GitHub Desktop.
Download ZIP
shell game 18 q8
Raw
shell18.egi
cat number | egison -F1s -s '(match-all-lambda (list string) [<cons <join _ <cons $x <cons $y <join $s <cons ,x <cons ,y $t>>>>>> _> [x y (take-while eq? (zip (unpack s) (unpack t)))]])'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment