Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/Ksh/trabb-pardo-knuth-algorithm.ksh

@@ -0,0 +1,52 @@
+#!/bin/ksh
+
+# Trabb Pardo–Knuth algorithm
+
+#	# Variables:
+#
+integer NUM_ELE=11
+typeset -F FUNC_LIMIT=400
+
+#	# Functions:
+#
+#	# Function _input(_arr) - Ask for user input, build array
+#
+function _input {
+	typeset _arr ; nameref _arr="$1"
+	typeset _i ; integer _i
+
+	clear ; print "Please input 11 numbers..."
+	for ((_i=1 ; _i<=NUM_ELE ; _i++)); do
+		read REPLY?"${_i}: "
+		[[ $REPLY != {,1}(-)+(\d){,1}(.)*(\d) ]] && ((_i--)) && continue
+		_arr+=( $REPLY )
+	done
+}
+
+#	# Function _function() - Apply |x|^0.5 + 5x^3
+#	#	note: >400 creates an overflow situation
+#
+function _function {
+	typeset _x ; _x=$1
+
+	(( _result = sqrt(abs(${_x})) + 5 * _x * _x * _x ))
+	(( _result <= $FUNC_LIMIT )) && echo ${_result} && return 0
+	return 1
+}
+
+ ######
+# main #
+ ######
+
+typeset -a inputarr
+_input inputarr
+integer i
+printf "%s\n\n" "Evaluating f(x) = |x|^0.5 + 5x^3 for the given inputs :"
+for (( i=NUM_ELE-1; i>=0; i-- )); do
+	result=$(_function ${inputarr[i]})
+	if (( $? )); then
+		printf "%s\n" "Overflow"
+	else
+		printf "%s\n" "${result}"
+	fi
+done