From 9ea388a8784cb54494131637f89a39ee6fe229c5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Joaqu=C3=ADn=20Ferrero?= <explorer@joaquinferrero.com>
Date: Mon, 5 Dec 2016 23:34:15 +0100
Subject: [PATCH] Create CodeKata.pl6
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Mi solución a la Kata propuesta.
---
 week18/CodeKata18.pl6 | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 week18/CodeKata18.pl6

diff --git a/week18/CodeKata18.pl6 b/week18/CodeKata18.pl6
new file mode 100644
index 0000000..4964957
--- /dev/null
+++ b/week18/CodeKata18.pl6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+sub MAIN(Int $n where 1E9 >= * >= 1) {
+    say getReverseBinaryNumbers($n);
+}
+
+sub getReverseBinaryNumbers($x) {
+    return :2($x.base(2).flip);
+}