Skip to content

Instantly share code, notes, and snippets.

@shinka-cb

shinka-cb/sushiZip.hs

Last active August 29, 2015 14:23
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save shinka-cb/c99d93229ea748eb0080 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save shinka-cb/c99d93229ea748eb0080 to your computer and use it in GitHub Desktop.
Download ZIP
sushiZip
Raw
sushiZip.hs
data Edible = 🍚 | 🐟 | 🍣 deriving (Show)
gohan = repeat 🍚
fish = repeat 🐟
f:: Edible -> Edible -> Edible
f 🍚 🐟 = 🍣
sushiZip = zipWith f gohan fish
main = do putStrLn $ show sushiZip
@shinka-cb
Copy link
Author

shinka-cb commented Jun 25, 2015

Note that this code cannot be compiled! (because of utf-8 emoji)
This code was inspired by this tweet

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment