Determine if a string is squeezable: Difference between revisions

Content added Content deleted

Inline

@@ Line 549: / Line 549: @@
 ∇r ← c show s
-  "chr: '",c,"'"
+  r ← ⊂ ("chr: '",c,"'")
-  " in: ",display s
+  r ← r, ⊂(" in: ",display s)
-  "out: ",display c squeeze s
+  r ← r, ⊂ ("out: ",display c squeeze s)
+  r ← ⊃r
-  ⍝⍝ NOTE: in GNU APL, a tradfn which may be called in a lambda
-  ⍝⍝ MUST have a return value.
-  r ← ⍬
 ∇
@@ Line 568: / Line 566: @@
     s5←s5,' --- Harry S Truman  '
-    ' ' show s1
+    ⎕←' ' show s1
-    '-' show s2
+    ⎕←'-' show s2
-    '7' show s3
+    ⎕←'7' show s3
-    '.' show s4
+    ⎕←'.' show s4
-    {⍵ show s5}¨' -r'
+    ⊃ {⍵ show s5}¨' -r'
 ∇
 </lang APL>