fact.s 72 Bytes
Edit Raw Blame History



1

2


fact = map (a) [ [a = 0 -> ^1â
                 | * -> ^ a*@ (a-1); ] ]