Day1 Advpl problem FizzBuzz #347

.all-contributorsrc

@@ -328,7 +328,17 @@
         "doc",
         "code"
       ]
-    }
+     },
+     {
+       "login": "diogenesdauster",
+       "name": "Diógenes Dauster",
+       "avatar_url": "https://avatars2.githubusercontent.com/u/16214631?s=460&u=c397c372c3332d4c5a16a79f4cb5e1141c88bc8e&v=4",
+       "profile": "https://github.com/diogenesdauster",
+       "contributions": [
+         "doc",
+         "code"
+        ]
+     }
   ],
   "commitConvention": "none"
 }

Day1/Advpl/fizzbuzz.prw

@@ -0,0 +1,19 @@
+User function fizzbuzz(num)
+Local result := ""
+Local i := 1
+
+  For i := 1 To num
+
+    If i % 3 = 0 .and. i % 5 = 0
+        result += "FizzBuzz "
+    Elseif i % 5 = 0
+        result += "Buzz "
+    Elseif  i % 3 = 0
+        result += "Fizz "
+    EndIf
+
+  Next
+
+  alert(result)
+
+return result

Day1/README.md

@@ -624,6 +624,39 @@ fun fizzBuzz (fizzList: List<Int>) {
 
 fizzBuzz((1..15).toList())
 ```
+## Advpl Implementation
+
+### [fizzbuzz.prw](./Advpl/fizzbuzz.prw)
+
+```advpl
+
+/*
+The Fizz Buzz Challenge 
+Autor: Diógenes Dauster <diogenes.dauster@gmail.com> 
+GitHub: https://github.com/diogenesdauster
+Date: 17/11/2020
+*/
+
+User function fizzbuzz(num)
+Local result := ""
+Local i := 1
+
+  For i := 1 To num
+
+    If i % 3 = 0 .and. i % 5 = 0
+        result += "FizzBuzz "
+    Elseif i % 5 = 0
+        result += "Buzz "
+    Elseif  i % 3 = 0
+        result += "Fizz "
+    EndIf
+
+  Next
+
+  alert(result)
+
+return result
+```
 
 ### Have Another solution?