Data update

Task/Safe-addition/FreeBASIC/safe-addition.basic

@@ -0,0 +1,22 @@
+Type interval
+    lower As Double
+    upper As Double
+End Type
+
+Function stepAway(x As Double) As interval
+    Dim As interval result
+    result.lower = x - 0.00000000000001
+    result.upper = x + 0.00000000000001
+    Return result
+End Function
+
+Function safeAdd(a As Double, b As Double) As interval
+    Return stepAway(a + b)
+End Function
+
+Dim As Double a = 1.2
+Dim As Double b = .03
+Dim As interval result = safeAdd(a, b)
+Print a; " "; b; " "; result.lower; " "; result.upper
+
+Sleep

Task/Safe-addition/Wren/safe-addition-1.wren

@@ -1,4 +1,4 @@
-/* safe_addition.wren */
+/* Safe_addition.wren */
 class Interval {
     construct new(lower, upper) {
         if (lower.type != Num || upper.type != Num) {

Task/Safe-addition/Wren/safe-addition-2.wren

@@ -1,3 +1,5 @@
+/* gcc Safe_addition.c -o Safe_addition -lwren -lm */
+
 #include <stdlib.h>
 #include <stdio.h>
 #include <math.h>
@@ -64,7 +66,7 @@ int main() {
     config.bindForeignMethodFn = &bindForeignMethod;
     WrenVM* vm = wrenNewVM(&config);
     const char* module = "main";
-    const char* fileName = "safe_addition.wren";
+    const char* fileName = "Safe_addition.wren";
     char *script = readFile(fileName);
     WrenInterpretResult result = wrenInterpret(vm, module, script);
     switch (result) {