Add "99 bottles of beer" example in Potion

perl11 · Jan 14, 2014 · 6413e37 · 6413e37
1 parent f0e33ed
commit 6413e37
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/example/99bottles.pn b/example/99bottles.pn
@@ -0,0 +1,18 @@
+count = 99
+99 times:
+  "\n" print
+  if (count == 1):
+    (count, " bottle of beer on the wall\n") join print
+    (count, " bottle of beer\n") join print.
+  else:
+    (count, " bottles of beer on the wall\n") join print
+    (count, " bottles of beer\n") join print.
+
+  "Take one down, pass it around\n" print
+  count = count - 1
+  if (count == 1):
+    (count, " bottle of beer on the wall\n") join print.
+  else:
+    (count, " bottles of beer on the wall\n") join print.
+  "\n" print.
+"No more bottles of beer on the wall\n" print