test.ctk

来自「C-Talk is interpreted scripting language」· CTK 代码 · 共 39 行

/* Tets of most of C-Talk function */
import Module;
i = 2;
function f() { 
    x = 2;
    function g(k) { 
	return i*x + k;
    }
    i = i << i + 1; 
    i += g(i);
    return i | 1;
}
println("Hello world " + f());
a = [];
set(a, "key", "value");
set(a, 1, 2000);
println(get(a, "key"));
println(get(a, 1));
a += ['one':1, 'two':2, 'three':3];
println(a.two);

for (i = 0; i < 1000; i++) { 
    if (i == 100) { 
	continue;
    }
    if (i >= 100) { 
	break;
    }
}
println("i=",i);
for (j = 0; j < 1000; j++) { 
    s = "1";
    for (i = 0; i < 24; i++) { 
	s += s;
    }
    println("Iteration " + j);
}
throw "oho-oho-oh";