43 lines
773 B
Text
43 lines
773 B
Text
|
/* Maxima computer algebra system */
|
||
|
|
|
||
|
|
print ("mumble");
|
||
|
|
|
||
|
|
/* this
|
||
|
|
/* this is
|
||
|
|
/* this is a nested comment */ nested comment
|
||
|
|
*/ comment
|
||
|
|
*/
|
||
|
|
|
||
|
|
sin(%pi); /* should be highlighted again */
|
||
|
|
|
||
|
|
/* programming keywords */
|
||
|
|
|
||
|
|
if a then b elseif c then d else f;
|
||
|
|
for x:1 thru 10 step 2 do print(x);
|
||
|
|
for z:-2 while z < 0 do print(z);
|
||
|
|
for m:0 unless m > 10 do print(m);
|
||
|
|
for x in [1, 2, 3] do print(x);
|
||
|
|
foo and bar or not baz;
|
||
|
|
|
||
|
|
/* different kinds of integers */
|
||
|
|
|
||
|
|
ibase : 18 $
|
||
|
|
[0, 1234, 1234., 0abcdefgh];
|
||
|
|
reset (ibase) $
|
||
|
|
|
||
|
|
/* strings */
|
||
|
|
|
||
|
|
s1 : "\"now\" is";
|
||
|
|
s2 : "the 'time' for all good men";
|
||
|
|
print (s1, s2, "to come to the aid",
|
||
|
|
"of their country");
|
||
|
|
|
||
|
|
/* expressions */
|
||
|
|
|
||
|
|
foo (x, y, z) :=
|
||
|
|
if x > 1 + y
|
||
|
|
then z - x*y
|
||
|
|
elseif y <= 100!
|
||
|
|
then x/(y + z)^2
|
||
|
|
else z - y . x . y;
|