2022-02-17 18:53:29 -08:00
|
|
|
# Create an array with just some numbers
|
|
|
|
|
{ 1 2 3 }
|
|
|
|
|
println!
|
|
|
|
|
|
|
|
|
|
[ :x x x ] :dup
|
|
|
|
|
# Call some functions
|
|
|
|
|
{ 1 dup! dup! }
|
|
|
|
|
println!
|
|
|
|
|
|
2022-02-18 17:47:40 -08:00
|
|
|
# Internal function definitions are allowed too
|
2022-02-17 18:53:29 -08:00
|
|
|
{
|
|
|
|
|
[ 2 *! ] :double
|
|
|
|
|
1 dup! double! dup! double!
|
|
|
|
|
}
|
2022-02-18 17:47:40 -08:00
|
|
|
println!
|
|
|
|
|
|
|
|
|
|
# 2-D arrays
|
|
|
|
|
{
|
|
|
|
|
{ 1 0 0 }
|
|
|
|
|
{ 0 1 0 }
|
|
|
|
|
{ 0 0 1 }
|
|
|
|
|
}
|
2022-02-17 18:53:29 -08:00
|
|
|
println!
|