Determine if a string is squeezable: Difference between revisions

Content added Content deleted

Inline

@@ Line 541: / Line 541: @@
 ∇r ← c squeeze s
+  s ← 0,s,0
-  ⍝⍝ (0,s) handles edge case where
+  r ← 1↓¯2↓∊((s≠c)⊂s),¨c
-  ⍝⍝ a 'squeezable' sequence of c starts at s[1]
-  r ← 1↓¯1↓∊(((0,s)≠c)⊂(0,s)),¨c
 ∇
@@ Line 575: / Line 574: @@
     ⊃ {⍵ show s5}¨' -r'
 ∇
-</lang APL>
+</lang>
 {{out}}