7 lines
158 B
OCaml
7 lines
158 B
OCaml
|
IFNDEF UNDEFINED_VARIABLE THEN
|
||
|
|
DEFINE SQUARE (x) = x * x ;;
|
||
|
|
DEFINE DOUBLE_SQUARE (x) = (SQUARE x) * 2 ;;
|
||
|
|
END;;
|
||
|
|
|
||
|
|
Printf.printf "%d\n" (DOUBLE_SQUARE(42)) ;;
|