22 lines
427 B
Plaintext
22 lines
427 B
Plaintext
Module CheckIt {
|
|
A$=Lambda$ N$="Hello There" (x) ->{
|
|
=Mid$(N$, x)
|
|
}
|
|
Print A$(4)="lo There"
|
|
Push A$
|
|
}
|
|
CheckIt
|
|
Read B$
|
|
Print B$(1)="Hello There"
|
|
Function List$ {
|
|
Dim Base 1, A$()
|
|
A$()=Array$([]) ' make an array from stack items
|
|
=lambda$ A$() (x) -> {
|
|
=A$(x)
|
|
}
|
|
|
|
}
|
|
\\ change definition/closures
|
|
B$=List$("Hello", "Rosetta", "Function")
|
|
Print B$(1)="Hello"
|