Determine if a string is squeezable: Difference between revisions

Content added Content deleted

Inline

@@ Line 541: / Line 541: @@
 ∇r ← c squeeze s
+  ⍝⍝ (0,s) handles edge case where
-  r ← ¯1↓∊((s≠c)⊂s),¨c
+  ⍝⍝ a 'squeezable' sequence of c starts at s[1]
+  r ← 1↓¯1↓∊(((0,s)≠c)⊂(0,s)),¨c
 ∇