Skip to content

Instantly share code, notes, and snippets.

@chessai
Created November 13, 2018 22:04
Show Gist options
  • Save chessai/f6665d1abe01e92ddcd08150aa37845f to your computer and use it in GitHub Desktop.
Save chessai/f6665d1abe01e92ddcd08150aa37845f to your computer and use it in GitHub Desktop.
mkArg :: Int -> String
mkArg n = "arg" ++ show n
mkDegenerate :: Int -> Int -> String
mkDegenerate start end = "f " ++ (mconcat $ intersperse "@" $ map mkArg [start..end]) ++ " = " ++ mkArg end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment