62 lines
714 B
Scheme
62 lines
714 B
Scheme
#lang honu
|
|
|
|
// display(1);
|
|
|
|
/*
|
|
=>
|
|
|
|
x = function(q){
|
|
print q;
|
|
if (q < end){
|
|
x(q+1);
|
|
}
|
|
}
|
|
x(start);
|
|
*/
|
|
|
|
/*
|
|
|
|
// display(syntax ...);
|
|
|
|
macro (to2){{fuz
|
|
x ... to2
|
|
}}
|
|
{{
|
|
display(x);
|
|
...
|
|
}}
|
|
|
|
fuz 5 6 to2
|
|
|
|
// macro (to = do end) {{ for looper:id = first:expr to last:expr do
|
|
|
|
/*
|
|
macro (to = do end) {{ for looper = first to last do
|
|
body ...
|
|
}}
|
|
{{
|
|
/* display(2); */
|
|
var x = function(looper){
|
|
body ...
|
|
if (looper < last){
|
|
x(looper+1);
|
|
}
|
|
};
|
|
x(first);
|
|
}}
|
|
|
|
|
|
/*
|
|
for2 x = 1 to 10 do
|
|
display(x);
|
|
newline();
|
|
end
|
|
*/
|
|
|
|
for x = 1 to 10 do
|
|
display(x);
|
|
newline();
|
|
|
|
*/
|
|
*/
|