Skip to content

Instantly share code, notes, and snippets.

@andersk

andersk/flowsnake.hs

Last active August 29, 2015 14:21
Show Gist options
  • Save andersk/2dd4874f6be306e63753 to your computer and use it in GitHub Desktop.
Save andersk/2dd4874f6be306e63753 to your computer and use it in GitHub Desktop.
Download ZIP
Flowsnake
Raw
flowsnake.hs
-- http://codegolf.stackexchange.com/questions/50521/ascii-art-of-the-day-2-flow-snakes
import Control.Applicative -- not needed in GHC 7.10
t[a,b]=[3*a+b,2*b-a]
_#[0,0]=3
0#_=0
n#l=mod(div 0xf5bf9ae65b4000$4^(7*(n-1)#t[div(s+3)7|s<-l]+mod(l!!0)7))4
0%_=0
n%l=(n-1)%t l+maximum(abs<$>sum l:l)
n!b=n%[1,-b]
f n=putStr$unlines[[" \\/ __"!!(2*n#t[div a 2,-b]+mod a 2)|a<-[b-n!2+1..b+n!2+fromEnum(n<3)]]|b<-[-n!0..n!0]]
main=f 3
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment