Compare a list of strings: Difference between revisions

Content added Content deleted

Inline

@@ Line 439: / Line 439: @@
 </pre>
+=={{header|Bracmat}}==
+<lang Bracmat>  (test1=first.~(!arg:%@?first ? (%@?:~!first) ?))
+& (test2=x.~(!arg:? %@?x (%@?:~>!x) ?))</lang>
+Demonstration
+<lang Bracmat>(     ( lstA
+      .   isiZulu
+          isiXhosa
+          isiNdebele
+          Xitsonga
+          Tshivenda
+          Setswana
+          "Sesotho sa Leboa"
+          Sesotho
+          English
+          Afrikaans
+      )
+      ( lstB
+      .   Afrikaans
+          English
+          Sesotho
+          "Sesotho sa Leboa"
+          Setswana
+          Tshivenda
+          Xitsonga
+          isiNdebele
+          isiXhosa
+          isiZulu
+      )
+      ( lstC
+      .   alpha
+          alpha
+          alpha
+          alpha
+          alpha
+          alpha
+          alpha
+          alpha
+          alpha
+          alpha
+      )
+  : ?lists
+&   map
+  $ ( (
+      =   name list
+        .   !arg:(?name.?list)
+          &   out
+            $ ( test1
+                !name
+                (test1$!list&succeeds|fails)
+              )
+          &   out
+            $ ( test2
+                !name
+                (test2$!list&succeeds|fails)
+              )
+      )
+    . !lists
+    )
+)
+</lang>
+'''Output'''
+<pre>test1 lstA fails
+test2 lstA fails
+test1 lstB fails
+test2 lstB succeeds
+test1 lstC succeeds
+test2 lstC fails</pre>
 =={{header|C}}==