59 lines
859 B
Plaintext
59 lines
859 B
Plaintext
$\
|
|
,
|
|
@
|
|
\=@@@-@-----# atoi
|
|
>
|
|
,
|
|
@
|
|
\=@@@-@-----#
|
|
<
|
|
@ # 4 copies
|
|
\=!/?!/->>+>>+>>+>>+<<<<<<<<?\#
|
|
> | #\?<<<<<<<<+>>+>>+>>+>>-/
|
|
@ |
|
|
\==/
|
|
\>>>>\
|
|
/>>>>/
|
|
@
|
|
\==!/===?\# add
|
|
< \>+<-/
|
|
@
|
|
\=@@@+@+++++# itoa
|
|
.
|
|
<
|
|
@
|
|
\==!/===?\# subtract
|
|
< \>-<-/
|
|
@
|
|
\=@@@+@+++++#
|
|
.
|
|
!
|
|
/\
|
|
?- multiply
|
|
\/ #/?<<+>+>-==\ /==-<+<+>>?\# /==-<<+>>?\#
|
|
< \->+>+<<!/?/# #\?\!>>+<+<-/ #\?\!>>+<<-/
|
|
@ /==|=========|=====\ /-\ |
|
|
\======<?!/>@/<-?!\>>>@/<<<-?\=>!\?/>!/@/<#
|
|
< \=======|==========/ /-\ |
|
|
@ \done======>>>!\?/<=/
|
|
\=@@@+@+++++#
|
|
.
|
|
!
|
|
/\
|
|
?- zero
|
|
\/
|
|
< divmod
|
|
@ /-\
|
|
\?\<!\?/#!===+<<<\ /-\
|
|
| \<==@\>@\>>!/?!/=<?\>!\?/<<#
|
|
| | | #\->->+</
|
|
| \=!\=?!/->>+<<?\#
|
|
@ #\?<<+>>-/
|
|
\=@@@+@+++++#
|
|
.
|
|
<
|
|
@
|
|
\=@@@+@+++++#
|
|
.
|
|
#
|