From 477c426b55d168764a34873561f78b3c34b1f013 Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <vn.mcsinyx@gmail.com>
Date: Wed, 13 Feb 2019 20:48:02 +0700
Subject: A new project is coming

---
 codechef/hmappy2.p6 | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100755 codechef/hmappy2.p6

(limited to 'codechef/hmappy2.p6')

diff --git a/codechef/hmappy2.p6 b/codechef/hmappy2.p6
new file mode 100755
index 0000000..cfe4cf5
--- /dev/null
+++ b/codechef/hmappy2.p6
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl6
+for ^get() {
+    my ($N, $A, $B, $K) = get.words.map: *.Int;
+    put $N div $A + $N div $B - $N div ($A lcm $B) * 2 < $K ?? 'Lose' !! 'Win';
+}
-- 
cgit 1.4.1