Determine if a string is squeezable: Difference between revisions
Determine if a string is squeezable (view source)
Revision as of 09:41, 16 January 2022
, 2 years ago→{{header|APL}}
(Added GNU APL equivalent) |
m (→{{header|APL}}) |
||
Line 549:
∇r ← c show s
r ← ⊂ ("chr: '",c,"'")
r ← r, ⊂(" in: ",display s)
r ← r, ⊂ ("out: ",display c squeeze s)
▲ r ← ⍬
∇
Line 568 ⟶ 566:
s5←s5,' --- Harry S Truman '
⎕←' ' show s1
⎕←'-' show s2
⎕←'7' show s3
⎕←'.' show s4
⊃ {⍵ show s5}¨' -r'
∇
</lang APL>
| |||