| 1445 | COMMANDN(+f, addf_, "v"); |
| 1446 | |
| 1447 | void mulf_(char **args, int numargs) |
| 1448 | { |
| 1449 | float prod = 1; |
| 1450 | if(numargs < 2) numargs = 2; // emulate classic (* ) = 0, (* 2) = 0, (* 2 3) = 6 |
| 1451 | loopi(numargs) prod *= atof(args[i]); |
| 1452 | floatret(prod); |
| 1453 | } |
| 1454 | COMMANDN(*f, mulf_, "v"); |
| 1455 | |
| 1456 | void sub_(int *a, int *b) { intret(*a - *b); } COMMANDN(-, sub_, "ii"); |