Skip to content

Instantly share code, notes, and snippets.

@chiroptical
Last active August 14, 2024 11:59
Show Gist options
  • Save chiroptical/41d4ccc4c39cfe1f59bdd37279048510 to your computer and use it in GitHub Desktop.
Save chiroptical/41d4ccc4c39cfe1f59bdd37279048510 to your computer and use it in GitHub Desktop.
Baby shark as a Haskell program
{-# LANGUAGE BlockArguments #-}
module Main where
main :: IO ()
main = do
babyShark
do do do do do do babyShark
do do do do do do babyShark
do do do do do do babyShark
mommyShark
do do do do do do mommyShark
do do do do do do mommyShark
do do do do do do mommyShark
daddyShark
do do do do do do daddyShark
do do do do do do daddyShark
do do do do do do daddyShark
grandpaShark
do do do do do do grandpaShark
do do do do do do grandpaShark
do do do do do do grandpaShark
let'sGoHunt
do do do do do do let'sGoHunt
do do do do do do let'sGoHunt
do do do do do do let'sGoHunt
babyShark :: IO ()
babyShark = pure ()
mommyShark :: IO ()
mommyShark = pure ()
daddyShark :: IO ()
daddyShark = pure ()
grandpaShark :: IO ()
grandpaShark = pure ()
let'sGoHunt :: IO ()
let'sGoHunt = pure ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment