6 lines
241 B
Text
6 lines
241 B
Text
#defn dotp(_X_,_Y_) #ATOM#CMPLX;#ATOM#CMPLX; mul; stats(0)
|
|
#defn lst(*) {"\033"} *;mklist;
|
|
#defn out(*) *;{"\n"}print
|
|
#defn code(*) main:; *; {"0"};return
|
|
|
|
code( out( dotp( lst (1,3,(-5)), lst (4,(-2),(-1)) ) ) )
|