Middle three digits: Difference between revisions
m
→{{header|Mathematica}}
m (Add SenseTalk commentary) |
|||
Line 3,639:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>middleThree[n_Integer] :=
Block[{digits = IntegerDigits[n], len},
Line 3,651:
Column[middleThree /@ testData]</lang>
{{out}}<pre>123
234
345
Line 3,668 ⟶ 3,667:
err: even number of digits
err: even number of digits
err: n too small</pre>
=={{header|MATLAB}} / {{header|Octave}}==
|