fact.s 72 Bytes Edit Raw Blame History Permalink 1 2 fact = map (a) [ [a = 0 -> ^1â | * -> ^ a*@ (a-1); ] ]
