Skip to content

Instantly share code, notes, and snippets.

@shawntan

shawntan/fractal.pl

Created October 1, 2011 10:17
Show Gist options
  • Save shawntan/1255841 to your computer and use it in GitHub Desktop.
Save shawntan/1255841 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fractal.pl
fractal(X=Formula,N,L):-frac(X,Formula,N,Formula,L),!.
frac(_,_,0,_,L):-write('forward'),write('('),write(L),write(')'),writeln('').
frac(G,X;Xs,N,Formula,L):-frac(G,X,N,Formula,L),frac(G,Xs,N,Formula,L).
frac(G,G,N,Formula,L):-N1 is N-1,frac(G,Formula,N1,Formula,L).
frac(_,left(D),_,_,_):-write('left('),write(D),write(')'),writeln('').
frac(_,right(D),_,_,_):-write('right('),write(D),write(')'),writeln('').
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment