Determine if a string is squeezable: Difference between revisions
Determine if a string is squeezable (view source)
Revision as of 03:25, 17 January 2022
, 2 years ago→{{header|APL}}
m (Fixed edge case in GNU APL example) |
m (→{{header|APL}}) |
||
Line 541:
∇r ← c squeeze s
s ← 0,s,0
▲ r ← 1↓¯1↓∊(((0,s)≠c)⊂(0,s)),¨c
∇
Line 575 ⟶ 574:
⊃ {⍵ show s5}¨' -r'
∇
</lang
{{out}}
| |||