32 lines
542 B
Plaintext
32 lines
542 B
Plaintext
print("\nQ& Test script.");
|
|
|
|
*~ how <~ 'very cool';
|
|
var _WHAT_ = "ABQ&%$#@!";
|
|
|
|
var a = 7;
|
|
*~ b <~ 12;
|
|
var c <~ 8;
|
|
*~ d = 3;
|
|
|
|
:: _WHAT_.SubString(2, 2) + ' is ' + how;
|
|
print(a * b * c * d);
|
|
|
|
if (a > d) {
|
|
:: "compare operator is sane";
|
|
} else {
|
|
:: "sanity check failed";
|
|
}
|
|
|
|
for (*~i<~1;i<=16;i++) {
|
|
:: "[" + i + "]: " + i*i;
|
|
}
|
|
|
|
fq fib(n) { if (n<2) <: 1; <: fib(n-1) + fib(n-2); }
|
|
|
|
*~ fibs <~ 'fibonacci sequence:';
|
|
for (*~i<~0;i<16;i++) {
|
|
fibs = fibs + " " + fib(i);
|
|
}
|
|
:: fibs;
|
|
|
|
:: "if you can read this, Q& probably works. Wow." |