Determine if a string is squeezable: Difference between revisions
Content added Content deleted
(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>
|