Data update

Task/Trabb-Pardo-Knuth-algorithm/Prolog/trabb-pardo-knuth-algorithm.pro

@@ -0,0 +1,26 @@
+:- use_module(library(dcg/basics)).
+:- use_module(library(dcg/high_order)).
+
+main :-
+    % ask for 11 numbers to be read into a sequence S
+    format("Enter 11 numbers for evaluation~n", []),
+    length(S, 11),
+    phrase_from_stream((sequence(integer, "\n", S), remainder(_)), user_input),
+
+    % reverse sequence S
+    reverse(S, ReversedS),
+
+    % for each item in sequence S
+    foreach((
+        member(Item, ReversedS),
+        % result := call a function to do an operation
+        Result is sqrt(abs(Item)) + 5 * Item ^ 3
+    ),
+        % if result overflows
+        (   Result > 400
+        %   alert user
+        ->  format("~d: OVERFLOW~n", [Item])
+        %   else print result
+        ;   format("~d: ~f~n", [Item, Result])
+        )
+    ).