36 lines
739 B
Plaintext
36 lines
739 B
Plaintext
FUNCTION make_0tuple():{tuple, []}
|
|
;; BB : 0
|
|
TUPLE a 0
|
|
RETURN
|
|
|
|
FUNCTION make_2tuple(integer, integer):{tuple, [integer, integer]}
|
|
;; BB : 0
|
|
PUSH arg0
|
|
PUSH arg1
|
|
TUPLE a 2
|
|
RETURN
|
|
|
|
FUNCTION make_5tuple(integer, integer, integer, integer, integer):
|
|
{tuple, [integer, integer, integer, integer, integer]}
|
|
;; BB : 0
|
|
PUSH arg0
|
|
PUSH arg1
|
|
PUSH arg2
|
|
PUSH arg3
|
|
PUSH arg4
|
|
TUPLE a 5
|
|
RETURN
|
|
|
|
FUNCTION element1(integer, integer): integer
|
|
;; BB : 0
|
|
PUSH arg0
|
|
PUSH arg1
|
|
TUPLE a 2
|
|
ELEMENT a 1 a
|
|
RETURN
|
|
|
|
FUNCTION element({tuple, [integer, integer]}, integer): integer
|
|
;; BB : 0
|
|
ELEMENT a arg1 arg0
|
|
RETURN
|