TPK algorithm
Program to compare computer programming languages
- 15 min read
- 2 chapters
Related on Lably
Through Computer program, Function (mathematics) and Function (computer programming)
To explain the name "TPK", the authors referred to Grimm's law (which concerns the consonants 't', 'p', and 'k'), the sounds in the word "typical", and their own initials (Trabb Pardo and Knuth). In a talk based on the paper, Knuth said:
You can only appreciate how deep the subject is by seeing how good people struggled with it and how the ideas emerged one at a time. In order to study this—Luis I think was the main instigator of this idea—we take one program—one algorithm—and we write it in every language. And that way from one example we can quickly psych out the flavor of that particular language. We call this the TPK program, and well, the fact that it has the initials of Trabb Pardo and Knuth is just a funny coincidence.
The algorithm
Knuth describes it as follows:
We introduced a simple procedure called the “TPK algorithm,” and gave the flavor of each language by expressing TPK in each particular style. […] The TPK algorithm inputs eleven numbers ; then it outputs a sequence of eleven pairs where
This simple task is obviously not much of a challenge, in any decent computer language.
In pseudocode:
<b id="mwJg">ask</b> for 11 numbers to be read into a sequence <i id="mwJw">S</i> <b id="mwKA">reverse</b> sequence <i id="mwKQ">S</i> <b id="mwKg">for each</b> <i id="mwKw">item</i> <b id="mwLA">in</b> sequence <i id="mwLQ">S</i> <b id="mwLg">call</b> a function to do an operation <b id="mwLw">if</b> <i id="mwMA">result</i> overflows <b id="mwMQ">alert</b> user <b id="mwMg">else</b> <b id="mwMw">print</b> <i id="mwNA">result</i>
The algorithm reads eleven numbers from an input device, stores them in an array, and then processes them in reverse order, applying a user-defined function to each value and reporting either the value of the function or a message to the effect that the value has exceeded some threshold.
Sign in to keep reading
One more chapter is free with a Lably account.
Implementations
Implementations in the original paper
In the original paper, which covered "roughly the first decade" of the development of high-level programming languages (from 1945 up to 1957), they gave the following example implementation "in a dialect of ALGOL 60", noting that ALGOL 60 was a later development than the languages actually discussed in the paper:
<span id="mwQA"></span><span class="linenos" data-line="1" id="mwQQ"></span><span class="n" id="mwQg">TPK</span><span class="o" id="mwQw">:</span><span class="w" id="mwRA"> </span><span class="k" id="mwRQ">begin</span><span class="w" id="mwRg"> </span><span class="kt" id="mwRw">integer</span><span class="w" id="mwSA"> </span><span class="n" id="mwSQ">i</span><span class="o" id="mwSg">;</span><span class="w" id="mwSw"> </span><span class="kt" id="mwTA">real</span><span class="w" id="mwTQ"> </span><span class="n" id="mwTg">y</span><span class="o" id="mwTw">;</span><span class="w" id="mwUA"> </span><span class="kt" id="mwUQ">real</span><span class="w" id="mwUg"> </span><span class="k" id="mwUw">array</span><span class="w" id="mwVA"> </span><span class="n" id="mwVQ">a</span><span class="p" id="mwVg">[</span><span class="mi" id="mwVw">0</span><span class="o" id="mwWA">:</span><span class="mi" id="mwWQ">10</span><span class="p" id="mwWg">]</span><span class="o" id="mwWw">;</span> <span class="linenos" data-line="2" id="mwXA"></span><span class="w" id="mwXQ"> </span><span class="kt" id="mwXg">real</span><span class="w" id="mwXw"> </span><span class="k" id="mwYA">procedure</span><span class="w" id="mwYQ"> </span><span class="nf" id="mwYg">f</span><span class="p" id="mwYw">(</span><span class="n" id="mwZA">t</span><span class="p" id="mwZQ">)</span><span class="o" id="mwZg">;</span><span class="w" id="mwZw"> </span><span class="kt" id="mwaA">real</span><span class="w" id="mwaQ"> </span><span class="n" id="mwag">t</span><span class="o" id="mwaw">;</span><span class="w" id="mwbA"> </span><span class="n" id="mwbQ">value</span><span class="w" id="mwbg"> </span><span class="n" id="mwbw">t</span><span class="o" id="mwcA">;</span> <span class="linenos" data-line="3" id="mwcQ"></span><span class="w" id="mwcg"> </span><span class="n" id="mwcw">f</span><span class="w" id="mwdA"> </span><span class="o" id="mwdQ">:=</span><span class="w" id="mwdg"> </span><span class="nb" id="mwdw">sqrt</span><span class="p" id="mweA">(</span><span class="nb" id="mweQ">abs</span><span class="p" id="mweg">(</span><span class="n" id="mwew">t</span><span class="p" id="mwfA">))</span><span class="w" id="mwfQ"> </span><span class="o" id="mwfg">+</span><span class="w" id="mwfw"> </span><span class="mi" id="mwgA">5</span><span class="w" id="mwgQ"> </span><span class="err" id="mwgg">×</span><span class="w" id="mwgw"> </span><span class="n" id="mwhA">t</span><span class="w" id="mwhQ"> </span><span class="err" id="mwhg">↑</span><span class="w" id="mwhw"> </span><span class="mi" id="mwiA">3</span><span class="o" id="mwiQ">;</span> <span class="linenos" data-line="4" id="mwig"></span><span class="w" id="mwiw"> </span><span class="k" id="mwjA">for</span><span class="w" id="mwjQ"> </span><span class="n" id="mwjg">i</span><span class="w" id="mwjw"> </span><span class="o" id="mwkA">:=</span><span class="w" id="mwkQ"> </span><span class="mi" id="mwkg">0</span><span class="w" id="mwkw"> </span><span class="n" id="mwlA">step</span><span class="w" id="mwlQ"> </span><span class="mi" id="mwlg">1</span><span class="w" id="mwlw"> </span><span class="k" id="mwmA">until</span><span class="w" id="mwmQ"> </span><span class="mi" id="mwmg">10</span><span class="w" id="mwmw"> </span><span class="k" id="mwnA">do</span><span class="w" id="mwnQ"> </span><span class="nb" id="mwng">read</span><span class="p" id="mwnw">(</span><span class="n" id="mwoA">a</span><span class="p" id="mwoQ">[</span><span class="n" id="mwog">i</span><span class="p" id="mwow">])</span><span class="o" id="mwpA">;</span> <span class="linenos" data-line="5" id="mwpQ"></span><span class="w" id="mwpg"> </span><span class="k" id="mwpw">for</span><span class="w" id="mwqA"> </span><span class="n" id="mwqQ">i</span><span class="w" id="mwqg"> </span><span class="o" id="mwqw">:=</span><span class="w" id="mwrA"> </span><span class="mi" id="mwrQ">10</span><span class="w" id="mwrg"> </span><span class="n" id="mwrw">step</span><span class="w" id="mwsA"> </span><span class="o" id="mwsQ">-</span><span class="mi" id="mwsg">1</span><span class="w" id="mwsw"> </span><span class="k" id="mwtA">until</span><span class="w" id="mwtQ"> </span><span class="mi" id="mwtg">0</span><span class="w" id="mwtw"> </span><span class="k" id="mwuA">do</span> <span class="linenos" data-line="6" id="mwuQ"></span><span class="w" id="mwug"> </span><span class="k" id="mwuw">begin</span><span class="w" id="mwvA"> </span><span class="n" id="mwvQ">y</span><span class="w" id="mwvg"> </span><span class="o" id="mwvw">:=</span><span class="w" id="mwwA"> </span><span class="n" id="mwwQ">f</span><span class="p" id="mwwg">(</span><span class="n" id="mwww">a</span><span class="p" id="mwxA">[</span><span class="n" id="mwxQ">i</span><span class="p" id="mwxg">])</span><span class="o" id="mwxw">;</span> <span class="linenos" data-line="7" id="mwyA"></span><span class="w" id="mwyQ"> </span><span class="k" id="mwyg">if</span><span class="w" id="mwyw"> </span><span class="n" id="mwzA">y</span><span class="w" id="mwzQ"> </span><span class="o" id="mwzg">></span><span class="w" id="mwzw"> </span><span class="mi" id="mw0A">400</span><span class="w" id="mw0Q"> </span><span class="k" id="mw0g">then</span><span class="w" id="mw0w"> </span><span class="nb" id="mw1A">write</span><span class="p" id="mw1Q">(</span><span class="n" id="mw1g">i</span><span class="o" id="mw1w">,</span><span class="w" id="mw2A"> </span><span class="s" id="mw2Q">'TOO LARGE'</span><span class="p" id="mw2g">)</span> <span class="linenos" data-line="8" id="mw2w"></span><span class="w" id="mw3A"> </span><span class="k" id="mw3Q">else</span><span class="w" id="mw3g"> </span><span class="nb" id="mw3w">write</span><span class="p" id="mw4A">(</span><span class="n" id="mw4Q">i</span><span class="o" id="mw4g">,</span><span class="w" id="mw4w"> </span><span class="n" id="mw5A">y</span><span class="p" id="mw5Q">)</span><span class="o" id="mw5g">;</span> <span class="linenos" data-line="9" id="mw5w"></span><span class="w" id="mw6A"> </span><span class="k" id="mw6Q">end</span> <span class="linenos" data-line="10" id="mw6g"></span><span class="k" id="mw6w">end</span><span class="w" id="mw7A"> </span><span class="n" id="mw7Q">TPK</span><span class="o" id="mw7g">.</span>
As many of the early high-level languages could not handle the TPK algorithm exactly, they allow the following modifications:
- If the language supports only integer variables, then assume that all inputs and outputs are integer-valued, and that
sqrt(x)means the largest integer not exceeding .
- If the language does not support alphabetic output, then instead of the string
'TOO LARGE', output the number 999.
- If the language does not allow any input and output, then assume that the 11 input values have been supplied by an external process somehow, and the task is to compute the 22 output values (with 999 replacing too-large values of ).
- If the language does not allow programmers to define their own functions, then replace
f(a[i])with an expression equivalent to .
With these modifications when necessary, the authors implement this algorithm in Konrad Zuse's Plankalkül, in Goldstine and von Neumann's flow diagrams, in Haskell Curry's proposed notation, in Short Code of John Mauchly and others, in the Intermediate Program Language of Arthur Burks, in the notation of Heinz Rutishauser, in the language and compiler by Corrado Böhm in 1951–52, in Autocode of Alick Glennie, in the A-2 system of Grace Hopper, in the Laning and Zierler system, in the earliest proposed Fortran (1954) of John Backus, in the Autocode for Mark 1 by Tony Brooker, in ПП-2 of Andrey Ershov, in BACAIC of Mandalay Grems and R. E. Porter, in Kompiler 2 of A. Kenton Elsworth and others, in ADES of E. K. Blum, the Internal Translator of Alan Perlis, in Fortran of John Backus, in ARITH-MATIC and MATH-MATIC from Grace Hopper's lab, in the system of Bauer and Samelson, and (in addenda in 2003 and 2009) PACT I and TRANSCODE. They then describe what kind of arithmetic was available, and provide a subjective rating of these languages on parameters of "implementation", "readability", "control structures", "data structures", "machine independence" and "impact", besides mentioning what each was the first to do.
Implementations in more recent languages
C implementation
This shows a C implementation equivalent to the above ALGOL 60.
<span id="mwAS4"></span><span class="linenos" data-line="1" id="mwAS8"></span><span class="cp" id="mwATA">#include</span><span class="w" id="mwATE"> </span><span class="cpf" id="mwATI"><math.h></span> <span class="linenos" data-line="2" id="mwATM"></span><span class="cp" id="mwATQ">#include</span><span class="w" id="mwATU"> </span><span class="cpf" id="mwATY"><stdio.h></span> <span class="linenos" data-line="3" id="mwATc"></span> <span class="linenos" data-line="4" id="mwATg"></span><span class="kt" id="mwATk">double</span><span class="w" id="mwATo"> </span><span class="nf" id="mwATs">f</span><span class="p" id="mwATw">(</span><span class="kt" id="mwAT0">double</span><span class="w" id="mwAT4"> </span><span class="n" id="mwAT8">t</span><span class="p" id="mwAUA">)</span> <span class="linenos" data-line="5" id="mwAUE"></span><span class="p" id="mwAUI">{</span> <span class="linenos" data-line="6" id="mwAUM"></span><span class="w" id="mwAUQ"> </span><span class="k" id="mwAUU">return</span><span class="w" id="mwAUY"> </span><span class="n" id="mwAUc">sqrt</span><span class="p" id="mwAUg">(</span><span class="n" id="mwAUk">fabs</span><span class="p" id="mwAUo">(</span><span class="n" id="mwAUs">t</span><span class="p" id="mwAUw">))</span><span class="w" id="mwAU0"> </span><span class="o" id="mwAU4">+</span><span class="w" id="mwAU8"> </span><span class="mi" id="mwAVA">5</span><span class="w" id="mwAVE"> </span><span class="o" id="mwAVI">*</span><span class="w" id="mwAVM"> </span><span class="n" id="mwAVQ">pow</span><span class="p" id="mwAVU">(</span><span class="n" id="mwAVY">t</span><span class="p" id="mwAVc">,</span><span class="w" id="mwAVg"> </span><span class="mi" id="mwAVk">3</span><span class="p" id="mwAVo">);</span> <span class="linenos" data-line="7" id="mwAVs"></span><span class="p" id="mwAVw">}</span> <span class="linenos" data-line="8" id="mwAV0"></span> <span class="linenos" data-line="9" id="mwAV4"></span><span class="kt" id="mwAV8">int</span><span class="w" id="mwAWA"> </span><span class="nf" id="mwAWE">main</span><span class="p" id="mwAWI">(</span><span class="kt" id="mwAWM">void</span><span class="p" id="mwAWQ">)</span> <span class="linenos" data-line="10" id="mwAWU"></span><span class="p" id="mwAWY">{</span> <span class="linenos" data-line="11" id="mwAWc"></span><span class="w" id="mwAWg"> </span><span class="kt" id="mwAWk">double</span><span class="w" id="mwAWo"> </span><span class="n" id="mwAWs">a</span><span class="p" id="mwAWw">[</span><span class="mi" id="mwAW0">11</span><span class="p" id="mwAW4">]</span><span class="w" id="mwAW8"> </span><span class="o" id="mwAXA">=</span><span class="w" id="mwAXE"> </span><span class="p" id="mwAXI">{</span><span class="mi" id="mwAXM">0</span><span class="p" id="mwAXQ">},</span><span class="w" id="mwAXU"> </span><span class="n" id="mwAXY">y</span><span class="p" id="mwAXc">;</span> <span class="linenos" data-line="12" id="mwAXg"></span><span class="w" id="mwAXk"> </span><span class="k" id="mwAXo">for</span><span class="w" id="mwAXs"> </span><span class="p" id="mwAXw">(</span><span class="kt" id="mwAX0">int</span><span class="w" id="mwAX4"> </span><span class="n" id="mwAX8">i</span><span class="w" id="mwAYA"> </span><span class="o" id="mwAYE">=</span><span class="w" id="mwAYI"> </span><span class="mi" id="mwAYM">0</span><span class="p" id="mwAYQ">;</span><span class="w" id="mwAYU"> </span><span class="n" id="mwAYY">i</span><span class="w" id="mwAYc"> </span><span class="o" id="mwAYg"><</span><span class="w" id="mwAYk"> </span><span class="mi" id="mwAYo">11</span><span class="p" id="mwAYs">;</span><span class="w" id="mwAYw"> </span><span class="n" id="mwAY0">i</span><span class="o" id="mwAY4">++</span><span class="p" id="mwAY8">)</span> <span class="linenos" data-line="13" id="mwAZA"></span><span class="w" id="mwAZE"> </span><span class="n" id="mwAZI">scanf</span><span class="p" id="mwAZM">(</span><span class="s" id="mwAZQ">"%lf"</span><span class="p" id="mwAZU">,</span><span class="w" id="mwAZY"> </span><span class="o" id="mwAZc">&</span><span class="n" id="mwAZg">a</span><span class="p" id="mwAZk">[</span><span class="n" id="mwAZo">i</span><span class="p" id="mwAZs">]);</span> <span class="linenos" data-line="14" id="mwAZw"></span> <span class="linenos" data-line="15" id="mwAZ0"></span><span class="w" id="mwAZ4"> </span><span class="k" id="mwAZ8">for</span><span class="w" id="mwAaA"> </span><span class="p" id="mwAaE">(</span><span class="kt" id="mwAaI">int</span><span class="w" id="mwAaM"> </span><span class="n" id="mwAaQ">i</span><span class="w" id="mwAaU"> </span><span class="o" id="mwAaY">=</span><span class="w" id="mwAac"> </span><span class="mi" id="mwAag">10</span><span class="p" id="mwAak">;</span><span class="w" id="mwAao"> </span><span class="n" id="mwAas">i</span><span class="w" id="mwAaw"> </span><span class="o" id="mwAa0">>=</span><span class="w" id="mwAa4"> </span><span class="mi" id="mwAa8">0</span><span class="p" id="mwAbA">;</span><span class="w" id="mwAbE"> </span><span class="n" id="mwAbI">i</span><span class="o" id="mwAbM">--</span><span class="p" id="mwAbQ">)</span><span class="w" id="mwAbU"> </span><span class="p" id="mwAbY">{</span> <span class="linenos" data-line="16" id="mwAbc"></span><span class="w" id="mwAbg"> </span><span class="n" id="mwAbk">y</span><span class="w" id="mwAbo"> </span><span class="o" id="mwAbs">=</span><span class="w" id="mwAbw"> </span><span class="n" id="mwAb0">f</span><span class="p" id="mwAb4">(</span><span class="n" id="mwAb8">a</span><span class="p" id="mwAcA">[</span><span class="n" id="mwAcE">i</span><span class="p" id="mwAcI">]);</span> <span class="linenos" data-line="17" id="mwAcM"></span><span class="w" id="mwAcQ"> </span><span class="k" id="mwAcU">if</span><span class="w" id="mwAcY"> </span><span class="p" id="mwAcc">(</span><span class="n" id="mwAcg">y</span><span class="w" id="mwAck"> </span><span class="o" id="mwAco">></span><span class="w" id="mwAcs"> </span><span class="mi" id="mwAcw">400</span><span class="p" id="mwAc0">)</span> <span class="linenos" data-line="18" id="mwAc4"></span><span class="w" id="mwAc8"> </span><span class="n" id="mwAdA">printf</span><span class="p" id="mwAdE">(</span><span class="s" id="mwAdI">"%d TOO LARGE</span><span class="se" id="mwAdM">\n</span><span class="s" id="mwAdQ">"</span><span class="p" id="mwAdU">,</span><span class="w" id="mwAdY"> </span><span class="n" id="mwAdc">i</span><span class="p" id="mwAdg">);</span> <span class="linenos" data-line="19" id="mwAdk"></span><span class="w" id="mwAdo"> </span><span class="k" id="mwAds">else</span> <span class="linenos" data-line="20" id="mwAdw"></span><span class="w" id="mwAd0"> </span><span class="n" id="mwAd4">printf</span><span class="p" id="mwAd8">(</span><span class="s" id="mwAeA">"%d %.16g</span><span class="se" id="mwAeE">\n</span><span class="s" id="mwAeI">"</span><span class="p" id="mwAeM">,</span><span class="w" id="mwAeQ"> </span><span class="n" id="mwAeU">i</span><span class="p" id="mwAeY">,</span><span class="w" id="mwAec"> </span><span class="n" id="mwAeg">y</span><span class="p" id="mwAek">);</span> <span class="linenos" data-line="21" id="mwAeo"></span><span class="w" id="mwAes"> </span><span class="p" id="mwAew">}</span> <span class="linenos" data-line="22" id="mwAe0"></span><span class="p" id="mwAe4">}</span>Python implementation
This shows a Python implementation.
<span id="mwAfQ"></span><span class="linenos" data-line="1" id="mwAfU"></span><span class="kn" id="mwAfY">from</span><span class="w" id="mwAfc"> </span><span class="nn" id="mwAfg">math</span><span class="w" id="mwAfk"> </span><span class="kn" id="mwAfo">import</span> <span class="n" id="mwAfs">sqrt</span> <span class="linenos" data-line="2" id="mwAfw"></span> <span class="linenos" data-line="3" id="mwAf0"></span> <span class="linenos" data-line="4" id="mwAf4"></span><span class="k" id="mwAf8">def</span><span class="w" id="mwAgA"> </span><span class="nf" id="mwAgE">f</span><span class="p" id="mwAgI">(</span><span class="n" id="mwAgM">t</span><span class="p" id="mwAgQ">):</span> <span class="linenos" data-line="5" id="mwAgU"></span> <span class="k" id="mwAgY">return</span> <span class="n" id="mwAgc">sqrt</span><span class="p" id="mwAgg">(</span><span class="nb" id="mwAgk">abs</span><span class="p" id="mwAgo">(</span><span class="n" id="mwAgs">t</span><span class="p" id="mwAgw">))</span> <span class="o" id="mwAg0">+</span> <span class="mi" id="mwAg4">5</span> <span class="o" id="mwAg8">*</span> <span class="n" id="mwAhA">t</span><span class="o" id="mwAhE">**</span><span class="mi" id="mwAhI">3</span> <span class="linenos" data-line="6" id="mwAhM"></span> <span class="linenos" data-line="7" id="mwAhQ"></span> <span class="linenos" data-line="8" id="mwAhU"></span><span class="n" id="mwAhY">a</span> <span class="o" id="mwAhc">=</span> <span class="p" id="mwAhg">[</span><span class="nb" id="mwAhk">float</span><span class="p" id="mwAho">(</span><span class="nb" id="mwAhs">input</span><span class="p" id="mwAhw">())</span> <span class="k" id="mwAh0">for</span> <span class="n" id="mwAh4">_</span> <span class="ow" id="mwAh8">in</span> <span class="nb" id="mwAiA">range</span><span class="p" id="mwAiE">(</span><span class="mi" id="mwAiI">11</span><span class="p" id="mwAiM">)]</span> <span class="linenos" data-line="9" id="mwAiQ"></span><span class="k" id="mwAiU">for</span> <span class="n" id="mwAiY">i</span><span class="p" id="mwAic">,</span> <span class="n" id="mwAig">t</span> <span class="ow" id="mwAik">in</span> <span class="nb" id="mwAio">reversed</span><span class="p" id="mwAis">(</span><span class="nb" id="mwAiw">list</span><span class="p" id="mwAi0">(</span><span class="nb" id="mwAi4">enumerate</span><span class="p" id="mwAi8">(</span><span class="n" id="mwAjA">a</span><span class="p" id="mwAjE">))):</span> <span class="linenos" data-line="10" id="mwAjI"></span> <span class="n" id="mwAjM">y</span> <span class="o" id="mwAjQ">=</span> <span class="n" id="mwAjU">f</span><span class="p" id="mwAjY">(</span><span class="n" id="mwAjc">t</span><span class="p" id="mwAjg">)</span> <span class="linenos" data-line="11" id="mwAjk"></span> <span class="nb" id="mwAjo">print</span><span class="p" id="mwAjs">(</span><span class="n" id="mwAjw">i</span><span class="p" id="mwAj0">,</span> <span class="s2" id="mwAj4">"TOO LARGE"</span> <span class="k" id="mwAj8">if</span> <span class="n" id="mwAkA">y</span> <span class="o" id="mwAkE">></span> <span class="mi" id="mwAkI">400</span> <span class="k" id="mwAkM">else</span> <span class="n" id="mwAkQ">y</span><span class="p" id="mwAkU">)</span>
Java implementation
This shows a Java implementation.
<span id="mwAks"></span><span class="linenos" data-line="1" id="mwAkw"></span><span class="kn" id="mwAk0">import</span><span class="w" id="mwAk4"> </span><span class="nn" id="mwAk8">java.util.Arrays</span><span class="p" id="mwAlA">;</span> <span class="linenos" data-line="2" id="mwAlE"></span><span class="kn" id="mwAlI">import</span><span class="w" id="mwAlM"> </span><span class="nn" id="mwAlQ">java.util.ArrayList</span><span class="p" id="mwAlU">;</span> <span class="linenos" data-line="3" id="mwAlY"></span><span class="kn" id="mwAlc">import</span><span class="w" id="mwAlg"> </span><span class="nn" id="mwAlk">java.util.Collections</span><span class="p" id="mwAlo">;</span> <span class="linenos" data-line="4" id="mwAls"></span><span class="kn" id="mwAlw">import</span><span class="w" id="mwAl0"> </span><span class="nn" id="mwAl4">java.util.List</span><span class="p" id="mwAl8">;</span> <span class="linenos" data-line="5" id="mwAmA"></span><span class="kn" id="mwAmE">import</span><span class="w" id="mwAmI"> </span><span class="nn" id="mwAmM">java.util.Scanner</span><span class="p" id="mwAmQ">;</span> <span class="linenos" data-line="6" id="mwAmU"></span> <span class="linenos" data-line="7" id="mwAmY"></span><span class="kd" id="mwAmc">public</span><span class="w" id="mwAmg"> </span><span class="kd" id="mwAmk">class</span> <span class="nc" id="mwAmo">TPKAlgorithm</span><span class="w" id="mwAms"> </span><span class="p" id="mwAmw">{</span> <span class="linenos" data-line="8" id="mwAm0"></span><span class="w" id="mwAm4"> </span><span class="c1" id="mwAm8">// User-defined function</span> <span class="linenos" data-line="9" id="mwAnA"></span><span class="w" id="mwAnE"> </span><span class="kd" id="mwAnI">private</span><span class="w" id="mwAnM"> </span><span class="kd" id="mwAnQ">static</span><span class="w" id="mwAnU"> </span><span class="kt" id="mwAnY">double</span><span class="w" id="mwAnc"> </span><span class="nf" id="mwAng">f</span><span class="p" id="mwAnk">(</span><span class="kt" id="mwAno">double</span><span class="w" id="mwAns"> </span><span class="n" id="mwAnw">x</span><span class="p" id="mwAn0">)</span><span class="w" id="mwAn4"> </span><span class="p" id="mwAn8">{</span> <span class="linenos" data-line="10" id="mwAoA"></span><span class="w" id="mwAoE"> </span><span class="k" id="mwAoI">return</span><span class="w" id="mwAoM"> </span><span class="n" id="mwAoQ">Math</span><span class="p" id="mwAoU">.</span><span class="na" id="mwAoY">sqrt</span><span class="p" id="mwAoc">(</span><span class="n" id="mwAog">Math</span><span class="p" id="mwAok">.</span><span class="na" id="mwAoo">abs</span><span class="p" id="mwAos">(</span><span class="n" id="mwAow">x</span><span class="p" id="mwAo0">))</span><span class="w" id="mwAo4"> </span><span class="o" id="mwAo8">+</span><span class="w" id="mwApA"> </span><span class="mi" id="mwApE">5</span><span class="w" id="mwApI"> </span><span class="o" id="mwApM">*</span><span class="w" id="mwApQ"> </span><span class="n" id="mwApU">Math</span><span class="p" id="mwApY">.</span><span class="na" id="mwApc">pow</span><span class="p" id="mwApg">(</span><span class="n" id="mwApk">x</span><span class="p" id="mwApo">,</span><span class="w" id="mwAps"> </span><span class="mi" id="mwApw">3</span><span class="p" id="mwAp0">);</span> <span class="linenos" data-line="11" id="mwAp4"></span><span class="w" id="mwAp8"> </span><span class="p" id="mwAqA">}</span> <span class="linenos" data-line="12" id="mwAqE"></span> <span class="linenos" data-line="13" id="mwAqI"></span><span class="w" id="mwAqM"> </span><span class="kd" id="mwAqQ">public</span><span class="w" id="mwAqU"> </span><span class="kd" id="mwAqY">static</span><span class="w" id="mwAqc"> </span><span class="kt" id="mwAqg">void</span><span class="w" id="mwAqk"> </span><span class="nf" id="mwAqo">main</span><span class="p" id="mwAqs">(</span><span class="n" id="mwAqw">String</span><span class="o" id="mwAq0">[]</span><span class="w" id="mwAq4"> </span><span class="n" id="mwAq8">args</span><span class="p" id="mwArA">)</span><span class="w" id="mwArE"> </span><span class="p" id="mwArI">{</span> <span class="linenos" data-line="14" id="mwArM"></span><span class="w" id="mwArQ"> </span><span class="c1" id="mwArU">// Create a Scanner object for user input</span> <span class="linenos" data-line="15" id="mwArY"></span><span class="w" id="mwArc"> </span><span class="n" id="mwArg">Scanner</span><span class="w" id="mwArk"> </span><span class="n" id="mwAro">scanner</span><span class="w" id="mwArs"> </span><span class="o" id="mwArw">=</span><span class="w" id="mwAr0"> </span><span class="k" id="mwAr4">new</span><span class="w" id="mwAr8"> </span><span class="n" id="mwAsA">Scanner</span><span class="p" id="mwAsE">(</span><span class="n" id="mwAsI">System</span><span class="p" id="mwAsM">.</span><span class="na" id="mwAsQ">in</span><span class="p" id="mwAsU">);</span> <span class="linenos" data-line="16" id="mwAsY"></span><span class="w" id="mwAsc"> </span><span class="c1" id="mwAsg">// Create an ArrayList to store input numbers</span> <span class="linenos" data-line="17" id="mwAsk"></span><span class="w" id="mwAso"> </span><span class="n" id="mwAss">List</span><span class="o" id="mwAsw"><</span><span class="n" id="mwAs0">Double</span><span class="o" id="mwAs4">></span><span class="w" id="mwAs8"> </span><span class="n" id="mwAtA">inputNumbers</span><span class="w" id="mwAtE"> </span><span class="o" id="mwAtI">=</span><span class="w" id="mwAtM"> </span><span class="k" id="mwAtQ">new</span><span class="w" id="mwAtU"> </span><span class="n" id="mwAtY">ArrayList</span><span class="o" id="mwAtc"><></span><span class="p" id="mwAtg">();</span> <span class="linenos" data-line="18" id="mwAtk"></span> <span class="linenos" data-line="19" id="mwAto"></span><span class="w" id="mwAts"> </span><span class="n" id="mwAtw">System</span><span class="p" id="mwAt0">.</span><span class="na" id="mwAt4">out</span><span class="p" id="mwAt8">.</span><span class="na" id="mwAuA">println</span><span class="p" id="mwAuE">(</span><span class="s" id="mwAuI">"Enter eleven numbers:"</span><span class="p" id="mwAuM">);</span> <span class="linenos" data-line="20" id="mwAuQ"></span> <span class="linenos" data-line="21" id="mwAuU"></span><span class="w" id="mwAuY"> </span><span class="kt" id="mwAuc">int</span><span class="w" id="mwAug"> </span><span class="n" id="mwAuk">inputNumber</span><span class="p" id="mwAuo">;</span> <span class="linenos" data-line="22" id="mwAus"></span><span class="w" id="mwAuw"> </span><span class="c1" id="mwAu0">// Get 11 numbers from the user input</span> <span class="linenos" data-line="23" id="mwAu4"></span><span class="w" id="mwAu8"> </span><span class="k" id="mwAvA">for</span><span class="w" id="mwAvE"> </span><span class="p" id="mwAvI">(</span><span class="kt" id="mwAvM">int</span><span class="w" id="mwAvQ"> </span><span class="n" id="mwAvU">i</span><span class="w" id="mwAvY"> </span><span class="o" id="mwAvc">=</span><span class="w" id="mwAvg"> </span><span class="mi" id="mwAvk">1</span><span class="p" id="mwAvo">;</span><span class="w" id="mwAvs"> </span><span class="n" id="mwAvw">i</span><span class="w" id="mwAv0"> </span><span class="o" id="mwAv4"><=</span><span class="w" id="mwAv8"> </span><span class="mi" id="mwAwA">11</span><span class="p" id="mwAwE">;</span><span class="w" id="mwAwI"> </span><span class="n" id="mwAwM">i</span><span class="o" id="mwAwQ">++</span><span class="p" id="mwAwU">)</span><span class="w" id="mwAwY"> </span><span class="p" id="mwAwc">{</span> <span class="linenos" data-line="24" id="mwAwg"></span><span class="w" id="mwAwk"> </span><span class="k" id="mwAwo">if</span><span class="w" id="mwAws"> </span><span class="p" id="mwAww">(</span><span class="n" id="mwAw0">scanner</span><span class="p" id="mwAw4">.</span><span class="na" id="mwAw8">hasNextDouble</span><span class="p" id="mwAxA">())</span><span class="w" id="mwAxE"> </span><span class="p" id="mwAxI">{</span> <span class="linenos" data-line="25" id="mwAxM"></span><span class="w" id="mwAxQ"> </span><span class="n" id="mwAxU">inputNumber</span><span class="w" id="mwAxY"> </span><span class="o" id="mwAxc">=</span><span class="w" id="mwAxg"> </span><span class="n" id="mwAxk">scanner</span><span class="p" id="mwAxo">.</span><span class="na" id="mwAxs">nextDouble</span><span class="p" id="mwAxw">();</span> <span class="linenos" data-line="26" id="mwAx0"></span><span class="w" id="mwAx4"> </span><span class="n" id="mwAx8">inputNumbers</span><span class="p" id="mwAyA">.</span><span class="na" id="mwAyE">add</span><span class="p" id="mwAyI">(</span><span class="n" id="mwAyM">inputNumber</span><span class="p" id="mwAyQ">);</span> <span class="linenos" data-line="27" id="mwAyU"></span><span class="w" id="mwAyY"> </span><span class="p" id="mwAyc">}</span> <span class="linenos" data-line="28" id="mwAyg"></span><span class="w" id="mwAyk"> </span><span class="p" id="mwAyo">}</span> <span class="linenos" data-line="29" id="mwAys"></span><span class="w" id="mwAyw"> </span><span class="n" id="mwAy0">scanner</span><span class="p" id="mwAy4">.</span><span class="na" id="mwAy8">close</span><span class="p" id="mwAzA">();</span> <span class="linenos" data-line="30" id="mwAzE"></span> <span class="linenos" data-line="31" id="mwAzI"></span><span class="w" id="mwAzM"> </span><span class="c1" id="mwAzQ">// Algorithm logic</span> <span class="linenos" data-line="32" id="mwAzU"></span><span class="w" id="mwAzY"> </span><span class="n" id="mwAzc">Collections</span><span class="p" id="mwAzg">.</span><span class="na" id="mwAzk">reverse</span><span class="p" id="mwAzo">(</span><span class="n" id="mwAzs">inputNumbers</span><span class="p" id="mwAzw">);</span> <span class="linenos" data-line="33" id="mwAz0"></span><span class="w" id="mwAz4"> </span><span class="k" id="mwAz8">for</span><span class="w" id="mwA0A"> </span><span class="p" id="mwA0E">(</span><span class="kt" id="mwA0I">int</span><span class="w" id="mwA0M"> </span><span class="n" id="mwA0Q">n</span><span class="w" id="mwA0U"> </span><span class="o" id="mwA0Y">=</span><span class="w" id="mwA0c"> </span><span class="mi" id="mwA0g">0</span><span class="p" id="mwA0k">;</span><span class="w" id="mwA0o"> </span><span class="n" id="mwA0s">n</span><span class="w" id="mwA0w"> </span><span class="o" id="mwA00"><</span><span class="w" id="mwA04"> </span><span class="n" id="mwA08">inputNumbers</span><span class="p" id="mwA1A">.</span><span class="na" id="mwA1E">size</span><span class="p" id="mwA1I">();</span><span class="w" id="mwA1M"> </span><span class="n" id="mwA1Q">n</span><span class="o" id="mwA1U">++</span><span class="p" id="mwA1Y">)</span><span class="w" id="mwA1c"> </span><span class="p" id="mwA1g">{</span> <span class="linenos" data-line="34" id="mwA1k"></span><span class="w" id="mwA1o"> </span><span class="kt" id="mwA1s">int</span><span class="w" id="mwA1w"> </span><span class="n" id="mwA10">i</span><span class="w" id="mwA14"> </span><span class="o" id="mwA18">=</span><span class="w" id="mwA2A"> </span><span class="n" id="mwA2E">inputNumbers</span><span class="p" id="mwA2I">.</span><span class="na" id="mwA2M">size</span><span class="p" id="mwA2Q">()</span><span class="w" id="mwA2U"> </span><span class="o" id="mwA2Y">-</span><span class="w" id="mwA2c"> </span><span class="p" id="mwA2g">(</span><span class="n" id="mwA2k">n</span><span class="w" id="mwA2o"> </span><span class="o" id="mwA2s">+</span><span class="w" id="mwA2w"> </span><span class="mi" id="mwA20">1</span><span class="p" id="mwA24">);</span> <span class="linenos" data-line="35" id="mwA28"></span><span class="w" id="mwA3A"> </span><span class="kt" id="mwA3E">double</span><span class="w" id="mwA3I"> </span><span class="n" id="mwA3M">y</span><span class="w" id="mwA3Q"> </span><span class="o" id="mwA3U">=</span><span class="w" id="mwA3Y"> </span><span class="n" id="mwA3c">f</span><span class="p" id="mwA3g">(</span><span class="n" id="mwA3k">inputNumbers</span><span class="p" id="mwA3o">.</span><span class="na" id="mwA3s">get</span><span class="p" id="mwA3w">(</span><span class="n" id="mwA30">n</span><span class="p" id="mwA34">));</span> <span class="linenos" data-line="36" id="mwA38"></span><span class="w" id="mwA4A"> </span><span class="k" id="mwA4E">if</span><span class="w" id="mwA4I"> </span><span class="p" id="mwA4M">(</span><span class="n" id="mwA4Q">y</span><span class="w" id="mwA4U"> </span><span class="o" id="mwA4Y">></span><span class="w" id="mwA4c"> </span><span class="mi" id="mwA4g">400</span><span class="p" id="mwA4k">)</span><span class="w" id="mwA4o"> </span><span class="p" id="mwA4s">{</span> <span class="linenos" data-line="37" id="mwA4w"></span><span class="w" id="mwA40"> </span><span class="n" id="mwA44">System</span><span class="p" id="mwA48">.</span><span class="na" id="mwA5A">out</span><span class="p" id="mwA5E">.</span><span class="na" id="mwA5I">printf</span><span class="p" id="mwA5M">(</span><span class="s" id="mwA5Q">"%d TOO LARGE%n"</span><span class="p" id="mwA5U">,</span><span class="w" id="mwA5Y"> </span><span class="n" id="mwA5c">i</span><span class="p" id="mwA5g">);</span> <span class="linenos" data-line="38" id="mwA5k"></span><span class="w" id="mwA5o"> </span><span class="p" id="mwA5s">}</span><span class="w" id="mwA5w"> </span><span class="k" id="mwA50">else</span><span class="w" id="mwA54"> </span><span class="p" id="mwA58">{</span> <span class="linenos" data-line="39" id="mwA6A"></span><span class="w" id="mwA6E"> </span><span class="n" id="mwA6I">System</span><span class="p" id="mwA6M">.</span><span class="na" id="mwA6Q">out</span><span class="p" id="mwA6U">.</span><span class="na" id="mwA6Y">printf</span><span class="p" id="mwA6c">(</span><span class="s" id="mwA6g">"%d %.2f%n"</span><span class="p" id="mwA6k">,</span><span class="w" id="mwA6o"> </span><span class="n" id="mwA6s">i</span><span class="p" id="mwA6w">,</span><span class="w" id="mwA60"> </span><span class="n" id="mwA64">y</span><span class="p" id="mwA68">);</span> <span class="linenos" data-line="40" id="mwA7A"></span><span class="w" id="mwA7E"> </span><span class="p" id="mwA7I">}</span> <span class="linenos" data-line="41" id="mwA7M"></span><span class="w" id="mwA7Q"> </span><span class="p" id="mwA7U">}</span> <span class="linenos" data-line="42" id="mwA7Y"></span><span class="w" id="mwA7c"> </span><span class="p" id="mwA7g">}</span> <span class="linenos" data-line="43" id="mwA7k"></span><span class="p" id="mwA7o">}</span>Rust implementation
This shows a Rust implementation.
<span id="mwA8A"></span><span class="linenos" data-line="1" id="mwA8E"></span><span class="k" id="mwA8I">use</span><span class="w" id="mwA8M"> </span><span class="n" id="mwA8Q">std</span><span class="p" id="mwA8U">::{</span><span class="n" id="mwA8Y">io</span><span class="p" id="mwA8c">,</span><span class="w" id="mwA8g"> </span><span class="n" id="mwA8k">iter</span><span class="p" id="mwA8o">};</span> <span class="linenos" data-line="2" id="mwA8s"></span> <span class="linenos" data-line="3" id="mwA8w"></span><span class="k" id="mwA80">fn</span><span class="w" id="mwA84"> </span><span class="nf" id="mwA88">f</span><span class="p" id="mwA9A">(</span><span class="n" id="mwA9E">t</span><span class="p" id="mwA9I">:</span><span class="w" id="mwA9M"> </span><span class="kt" id="mwA9Q">f64</span><span class="p" id="mwA9U">)</span><span class="w" id="mwA9Y"> </span><span class="p" id="mwA9c">-></span><span class="w" id="mwA9g"> </span><span class="nb" id="mwA9k">Option</span><span class="o" id="mwA9o"><</span><span class="kt" id="mwA9s">f64</span><span class="o" id="mwA9w">></span><span class="w" id="mwA90"> </span><span class="p" id="mwA94">{</span> <span class="linenos" data-line="4" id="mwA98"></span><span class="w" id="mwA-A"> </span><span class="kd" id="mwA-E">let</span><span class="w" id="mwA-I"> </span><span class="n" id="mwA-M">y</span><span class="w" id="mwA-Q"> </span><span class="o" id="mwA-U">=</span><span class="w" id="mwA-Y"> </span><span class="n" id="mwA-c">t</span><span class="p" id="mwA-g">.</span><span class="n" id="mwA-k">abs</span><span class="p" id="mwA-o">().</span><span class="n" id="mwA-s">sqrt</span><span class="p" id="mwA-w">()</span><span class="w" id="mwA-0"> </span><span class="o" id="mwA-4">+</span><span class="w" id="mwA-8"> </span><span class="mf" id="mwA_A">5.0</span><span class="w" id="mwA_E"> </span><span class="o" id="mwA_I">*</span><span class="w" id="mwA_M"> </span><span class="n" id="mwA_Q">t</span><span class="p" id="mwA_U">.</span><span class="n" id="mwA_Y">powi</span><span class="p" id="mwA_c">(</span><span class="mi" id="mwA_g">3</span><span class="p" id="mwA_k">);</span> <span class="linenos" data-line="5" id="mwA_o"></span><span class="w" id="mwA_s"> </span><span class="p" id="mwA_w">(</span><span class="n" id="mwA_0">y</span><span class="w" id="mwA_4"> </span><span class="o" id="mwA_8"><=</span><span class="w" id="mwBAA"> </span><span class="mf" id="mwBAE">400.0</span><span class="p" id="mwBAI">).</span><span class="n" id="mwBAM">then_some</span><span class="p" id="mwBAQ">(</span><span class="n" id="mwBAU">y</span><span class="p" id="mwBAY">)</span> <span class="linenos" data-line="6" id="mwBAc"></span><span class="p" id="mwBAg">}</span> <span class="linenos" data-line="7" id="mwBAk"></span> <span class="linenos" data-line="8" id="mwBAo"></span><span class="k" id="mwBAs">fn</span><span class="w" id="mwBAw"> </span><span class="nf" id="mwBA0">main</span><span class="p" id="mwBA4">()</span><span class="w" id="mwBA8"> </span><span class="p" id="mwBBA">{</span> <span class="linenos" data-line="9" id="mwBBE"></span><span class="w" id="mwBBI"> </span><span class="kd" id="mwBBM">let</span><span class="w" id="mwBBQ"> </span><span class="k" id="mwBBU">mut</span><span class="w" id="mwBBY"> </span><span class="n" id="mwBBc">a</span><span class="w" id="mwBBg"> </span><span class="o" id="mwBBk">=</span><span class="w" id="mwBBo"> </span><span class="p" id="mwBBs">[</span><span class="mi" id="mwBBw">0</span><span class="k" id="mwBB0">f64</span><span class="p" id="mwBB4">;</span><span class="w" id="mwBB8"> </span><span class="mi" id="mwBCA">11</span><span class="p" id="mwBCE">];</span> <span class="linenos" data-line="10" id="mwBCI"></span><span class="w" id="mwBCM"> </span><span class="k" id="mwBCQ">for</span><span class="w" id="mwBCU"> </span><span class="p" id="mwBCY">(</span><span class="n" id="mwBCc">t</span><span class="p" id="mwBCg">,</span><span class="w" id="mwBCk"> </span><span class="n" id="mwBCo">input</span><span class="p" id="mwBCs">)</span><span class="w" id="mwBCw"> </span><span class="k" id="mwBC0">in</span><span class="w" id="mwBC4"> </span><span class="n" id="mwBC8">iter</span><span class="p" id="mwBDA">::</span><span class="n" id="mwBDE">zip</span><span class="p" id="mwBDI">(</span><span class="o" id="mwBDM">&</span><span class="k" id="mwBDQ">mut</span><span class="w" id="mwBDU"> </span><span class="n" id="mwBDY">a</span><span class="p" id="mwBDc">,</span><span class="w" id="mwBDg"> </span><span class="n" id="mwBDk">io</span><span class="p" id="mwBDo">::</span><span class="n" id="mwBDs">stdin</span><span class="p" id="mwBDw">().</span><span class="n" id="mwBD0">lines</span><span class="p" id="mwBD4">())</span><span class="w" id="mwBD8"> </span><span class="p" id="mwBEA">{</span> <span class="linenos" data-line="11" id="mwBEE"></span><span class="w" id="mwBEI"> </span><span class="o" id="mwBEM">*</span><span class="n" id="mwBEQ">t</span><span class="w" id="mwBEU"> </span><span class="o" id="mwBEY">=</span><span class="w" id="mwBEc"> </span><span class="n" id="mwBEg">input</span><span class="p" id="mwBEk">.</span><span class="n" id="mwBEo">unwrap</span><span class="p" id="mwBEs">().</span><span class="n" id="mwBEw">parse</span><span class="p" id="mwBE0">().</span><span class="n" id="mwBE4">unwrap</span><span class="p" id="mwBE8">();</span> <span class="linenos" data-line="12" id="mwBFA"></span><span class="w" id="mwBFE"> </span><span class="p" id="mwBFI">}</span> <span class="linenos" data-line="13" id="mwBFM"></span> <span class="linenos" data-line="14" id="mwBFQ"></span><span class="w" id="mwBFU"> </span><span class="n" id="mwBFY">a</span><span class="p" id="mwBFc">.</span><span class="n" id="mwBFg">iter</span><span class="p" id="mwBFk">().</span><span class="n" id="mwBFo">enumerate</span><span class="p" id="mwBFs">().</span><span class="n" id="mwBFw">rev</span><span class="p" id="mwBF0">().</span><span class="n" id="mwBF4">for_each</span><span class="p" id="mwBF8">(</span><span class="o" id="mwBGA">|</span><span class="p" id="mwBGE">(</span><span class="n" id="mwBGI">i</span><span class="p" id="mwBGM">,</span><span class="w" id="mwBGQ"> </span><span class="o" id="mwBGU">&</span><span class="n" id="mwBGY">t</span><span class="p" id="mwBGc">)</span><span class="o" id="mwBGg">|</span><span class="w" id="mwBGk"> </span><span class="k" id="mwBGo">match</span><span class="w" id="mwBGs"> </span><span class="n" id="mwBGw">f</span><span class="p" id="mwBG0">(</span><span class="n" id="mwBG4">t</span><span class="p" id="mwBG8">)</span><span class="w" id="mwBHA"> </span><span class="p" id="mwBHE">{</span> <span class="linenos" data-line="15" id="mwBHI"></span><span class="w" id="mwBHM"> </span><span class="nb" id="mwBHQ">None</span><span class="w" id="mwBHU"> </span><span class="o" id="mwBHY">=></span><span class="w" id="mwBHc"> </span><span class="fm" id="mwBHg">println!</span><span class="p" id="mwBHk">(</span><span class="s" id="mwBHo">"{i} TOO LARGE"</span><span class="p" id="mwBHs">),</span> <span class="linenos" data-line="16" id="mwBHw"></span><span class="w" id="mwBH0"> </span><span class="nb" id="mwBH4">Some</span><span class="p" id="mwBH8">(</span><span class="n" id="mwBIA">y</span><span class="p" id="mwBIE">)</span><span class="w" id="mwBII"> </span><span class="o" id="mwBIM">=></span><span class="w" id="mwBIQ"> </span><span class="fm" id="mwBIU">println!</span><span class="p" id="mwBIY">(</span><span class="s" id="mwBIc">"{i} {y}"</span><span class="p" id="mwBIg">),</span> <span class="linenos" data-line="17" id="mwBIk"></span><span class="w" id="mwBIo"> </span><span class="p" id="mwBIs">});</span> <span class="linenos" data-line="18" id="mwBIw"></span><span class="p" id="mwBI0">}</span>
