Middle three digits: Difference between revisions
Content added Content deleted
m (→omissions) |
(→{{header|J}}: Add J) |
||
Line 190: | Line 190: | ||
middleThreeDigits(cast(short)-32768): 276</pre> |
middleThreeDigits(cast(short)-32768): 276</pre> |
||
=={{header|J}}== |
|||
'''Solution:''' |
|||
<lang j>asString=: ":"0 |
|||
noNeg=: -.&'_' |
|||
getMid3=: (3 {. 'err' ,~ ([: -: 3 -~ len) }. ]) :: ('err'"_) |
|||
getMiddle3=: getMid3@noNeg@asString</lang> |
|||
'''Example:''' |
|||
<lang j> vals=: 123 12345 1234567 987654321 10001 _10001 _123 _100 100 _12345 1 2 _1 _10 2002 _2002 0 |
|||
getMiddle3 vals |
|||
123 |
|||
234 |
|||
345 |
|||
654 |
|||
000 |
|||
000 |
|||
123 |
|||
100 |
|||
100 |
|||
234 |
|||
err |
|||
err |
|||
err |
|||
err |
|||
err |
|||
err |
|||
err</lang> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
||