2 /* so far only one perl operator is implemented */
7 /* to ensure runtime */
12 float test_x = (x <=> x + 1); // -1 less than
13 float test_y = (x <=> x); // 0 equal
14 float test_z = (x <=> x - 1); // 1 greater than
16 print(ftos(test_x), "\n");
17 print(ftos(test_y), "\n");
18 print(ftos(test_z), "\n");