Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Trabb-Pardo-Knuth-algorithm/Swift/trabb-pardo-knuth-algorithm.swift
+++ b/Task/Trabb-Pardo-Knuth-algorithm/Swift/trabb-pardo-knuth-algorithm.swift
@ -0,0 +1,18 @@
+import Foundation
+
+print("Enter 11 numbers for the Trabb─Pardo─Knuth algorithm:")
+
+let f: (Double) -> Double = { sqrt(fabs($0)) + 5 * pow($0, 3) }
+
+(1...11)
+    .generate()
+    .map { i -> Double in
+        print("\(i): ", terminator: "")
+        guard let s = readLine(), let n = Double(s) else { return 0 }
+        return n
+    }
+    .reverse()
+    .forEach {
+        let result = f($0)
+        print("f(\($0))", result > 400.0 ? "OVERFLOW" : result, separator: "\t")
+    }