Skip to content

Instantly share code, notes, and snippets.

@DarkHole1

DarkHole1/cases.ijs

Created July 11, 2018 14:38
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 DarkHole1/15ebfa1294daba59dedb4858ed995d00 to your computer and use it in GitHub Desktop.
Save DarkHole1/15ebfa1294daba59dedb4858ed995d00 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cases.ijs
cases=:monad define
t=.u,:a.{~32+a.i.u=.a.{~(3 :'32-~^:((y<123)*.(y>96))y')"0 a.i.y
t&(4 :'y}x')"1 #:i.2^#u
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment