Family Day update

Task/Detect-division-by-zero/Lua/detect-division-by-zero.lua

@@ -1,5 +1,4 @@
-function div(a,b)
-  quot = a/b
-  if quot == 1/0 then error() end
-  return quot
+local function div(a,b)
+  if b == 0 then error() end
+  return a/b
 end

Task/Detect-division-by-zero/Prolog/detect-division-by-zero.pro

@@ -0,0 +1,2 @@
+div(A, B, C, Ex) :-
+    catch((C is A/B), Ex, (C = infinity)).

Task/Detect-division-by-zero/Visual-Basic-.NET/detect-division-by-zero.visual

@@ -0,0 +1,15 @@
+Module DivByZeroDetection
+
+    Sub Main()
+        Console.WriteLine(safeDivision(10, 0))
+    End Sub
+
+    Private Function safeDivision(v1 As Integer, v2 As Integer) As Boolean
+        Try
+            Dim answer = v1 / v2
+            Return False
+        Catch ex As Exception
+            Return True
+        End Try
+    End Function
+End Module