RosettaCodeData/Task/Modular-arithmetic/Tcl/modular-arithmetic-3.tcl

4 lines
93 B
Tcl

set compiled [$comp compile {$x**100 + $x + 1}]
set x 10
puts "[eval $compiled] = $compiled"