all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Test-a-function/Perl-6/test-a-function.pl6
+++ b/Task/Test-a-function/Perl-6/test-a-function.pl6
@ -0,0 +1,17 @@
+use Test;
+
+my %tests =
+    'A man, a plan, a canal: Panama.'           => True,
+    'My dog has fleas'                          => False,
+    "Madam, I'm Adam."                          => True,
+    '1 on 1'                                    => False,
+    'In girum imus nocte et consumimur igni'    => True,
+    ''                                          => True,
+    ;
+
+plan %tests.elems;
+
+for %tests.kv -> $test, $expected-result {
+    is palin($test), $expected-result,
+        "\"$test\" is {$expected-result??''!!'not '}a palindrome.";
+}