-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathpackage.lisp
60 lines (58 loc) · 860 Bytes
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
(defpackage :cl-nutes
(:use :common-lisp)
(:export st-width
st-range
st-power
width
range
power
tape-halted
tape-position
tape-counter
tape-length
tape-special
create-tape
one-step
run-tape
bmod
3n-split
3n-digits
ternary-string
ternary-print
op-split
op-gen
trytes-chars
chars-trytes
eval-addr
decode-op
convert-minus
ternary-input
ternary-output
set-addr
prg-label-value
prg-list-labels
create-prg
prg-var
prg-3jmp
prg--
prg-sub
prg-add
prg-swap
prg-mov
prg-sign
prg-mul2
prg-mul3
prg-cmp
prg-smul
hello
prg-factorial
prg-io
prg-fib-pair
prg-movtrit
prg-overadd
prg-shift
prg-width
prg-invert
prg-trit-count
))
(in-package :cl-nutes)