Input
+$ strand-input
$+ strand-input
[=bowl in=(unit input)]/+ strandio
|%
++ ackermann
|= [m=@ n=@]
?: =(m 0) +(n)
?: =(n 0) $(m (dec m), n 1)
$(m (dec m), n $(n (dec n)))
--
|= arg=vase
=/ m (strand:rand ,vase)
^- form:m
;< t1=@da bind:m get-time:strandio
=/ ack (ackermann 3 8)
;< t2=@da bind:m get-time:strandio
(pure:m !>([t1 t2]))bowl
input
Last updated