Jump to content

Middle three digits: Difference between revisions

m
→‎{{header|J}}: fix reference to len and simplify
m (→‎{{header|J}}: fix reference to len and simplify)
Line 192:
=={{header|J}}==
'''Solution:'''
<lang j>asString=: ":"0 NB. convert vals to strings
getPfxSize=: [: -: 3 -~ # NB. get size of prefix to drop before the 3 middle digits
noNeg=: -.&'_'
getMid3=: (3 {. 'err' ,~ ([: -: 3 -~ len)getPfxSize }. ]) :: ('err'"_) NB. get 3 middle digits or return '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
Line 216:
err
err</lang>
 
=={{header|OCaml}}==
 
892

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.