mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
25 lines
275 B
Plaintext
25 lines
275 B
Plaintext
?> ?=([@ @] .)
|
|
%. .
|
|
|= [x=@ y=@]
|
|
=- (add:all x y)
|
|
^= all
|
|
=> %164
|
|
~% %k.164 ~ ~
|
|
|%
|
|
++ add
|
|
~/ %add
|
|
|= [a=@ b=@]
|
|
^- @
|
|
?: =(0 a) b
|
|
$(a (dec a), b +(b))
|
|
::
|
|
++ dec
|
|
~/ %dec
|
|
|= a=@
|
|
?< =(0 a)
|
|
=+ b=0
|
|
|- ^- @
|
|
?: =(a +(b)) b
|
|
$(b +(b))
|
|
--
|