RosettaCodeData/Task/Middle-three-digits/Uiua/middle-three-digits.uiua
2026-04-30 12:34:36 -04:00

9 lines
294 B
Text

[ 123 12345 1234567 987654321 10001 ¯10001 ¯123 ¯100 100 ¯12345
1 2 ¯1 ¯10 2002 ¯2002 0]
Mid ← (
⍤"too short"⊸≥3⊸⧻°⋕⌵
⍤"even length"≠0⊸◿2
↘¯⟜↘⌊÷2-3
)
⍉⊟⟜≡⍚⍣(Mid|⊂"Error: "◌) # Convert each
≡(&p$"_\t->\t_"°⊟) # Display