22 lines
457 B
Plaintext
22 lines
457 B
Plaintext
/======\
|
|
F==!/=!\?\+# | />-<-\
|
|
| \@\-@/@\===?/<#
|
|
| | |
|
|
$+++/======|====/
|
|
! /=/ /+<<-\
|
|
| \!/======?\>>=?/<# dup
|
|
| \<<+>+>-/
|
|
! !
|
|
\======|====\
|
|
| | |
|
|
| /===|==\ |
|
|
M==!\=!\?\#| | |
|
|
\@/-@/@/===?\<#
|
|
^ \>-<-/
|
|
| ^ ^ ^ ^
|
|
| | | | subtract from n
|
|
| | | mutual recursion
|
|
| | recursion
|
|
| n-1
|
|
check for zero
|