Skip to content

Instantly share code, notes, and snippets.

@jeremysinger

jeremysinger/seq.hs

Created September 18, 2017 05:42
Show Gist options
  • Save jeremysinger/80e5362ce152a1ce98101de21e9ca32e to your computer and use it in GitHub Desktop.
Save jeremysinger/80e5362ce152a1ce98101de21e9ca32e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
seq.hs
mysequence :: (Num a, Ord a) => a -> a -> [a] -> [a]
mysequence lower upper accum_list =
if upper<lower
then accum_list
else mysequence lower (upper-1) (upper:accum_list)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment