rufunge/examples/arithmetic.rf

24 lines
335 B
Plaintext

> 24*8- v Test *-, returns 0
@ ,*25,"1" _ v Assert
v .0 <
> 24%2- v 2 % 4
@ ,*25,"2" _ v
v .0 <
> 1 ! v Test !1 == 0
@ ,*25,"1" _ v
v .0 <
> 0 ! v Test !0 == 1
v .0 _ v
@ ,*25,"1" <
0 > 1. 25*, @ Test V if
> |
v.0 <
1 > 0. 25*, @ Test v if 2
> |
> 1. 25*, @