Trabb Pardo–Knuth algorithm: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 612:
f(2) = 41.4142135623731
f(1) = 6</pre>
=={{header|Elena}}==
{{trans|C}}
Line 1,011 ⟶ 1,012:
STOP 0 TPK00160
</lang>
=={{header|FreeBASIC}}==
<lang freebasic>' version 22-07-2017
Line 1,513 ⟶ 1,515:
41.41421356237309
6</lang>
=={{header|Julia}}==▼
<lang julia>f(x) = abs(x)^.5 + 5x^3▼
for i in map(parseint,reverse(split(readline())))▼
v = f(i)▼
println("$i: ", v > 400 ? "TOO LARGE" : v)▼
end</lang>▼
{{out}}▼
<pre>1 2 3 4 5 6 7 8 9 10 11▼
11: TOO LARGE▼
10: TOO LARGE▼
9: TOO LARGE▼
8: TOO LARGE▼
7: TOO LARGE▼
6: TOO LARGE▼
5: TOO LARGE▼
4: 322.0▼
3: 136.73205080756887▼
2: 41.41421356237309▼
1: 6.0</pre>▼
=={{header|Kotlin}}==
Line 1,577 ⟶ 1,599:
11: Overflow!
</pre>
▲=={{header|Julia}}==
▲<lang julia>f(x) = abs(x)^.5 + 5x^3
▲for i in map(parseint,reverse(split(readline())))
▲ v = f(i)
▲ println("$i: ", v > 400 ? "TOO LARGE" : v)
▲end</lang>
▲{{out}}
▲<pre>1 2 3 4 5 6 7 8 9 10 11
▲11: TOO LARGE
▲10: TOO LARGE
▲9: TOO LARGE
▲8: TOO LARGE
▲7: TOO LARGE
▲6: TOO LARGE
▲5: TOO LARGE
▲4: 322.0
▲3: 136.73205080756887
▲2: 41.41421356237309
▲1: 6.0</pre>
=={{header|Lua}}==
Line 1,677 ⟶ 1,679:
1 41.414213562373
0 6</pre>
=={{header|M2000 Interpreter}}==
Line 1,795 ⟶ 1,796:
41.41421356
6.</pre>
=={{header|Mathematica}}==
Line 2,062:
f( 2.00 ) = 41.41</pre>
=={{header|Perl 6}}==▼
<lang perl6>my @nums = prompt("Please type 11 space-separated numbers: ").words▼
until @nums == 11;▼
for @nums.reverse -> $n {▼
my $r = $n.abs.sqrt + 5 * $n ** 3;▼
say "$n\t{ $r > 400 ?? 'Urk!' !! $r }";▼
}</lang>▼
{{out}}▼
<pre>Please type 11 space-separated numbers: 10 -1 1 2 3 4 4.3 4.305 4.303 4.302 4.301▼
4.301 399.88629974772681▼
4.302 Urk!▼
4.303 Urk!▼
4.305 Urk!▼
4.3 399.60864413533278▼
4 322▼
3 136.73205080756887▼
2 41.414213562373092▼
1 6▼
-1 -4▼
10 Urk!</pre>▼
=={{header|Phix}}==
<lang Phix>function f(atom x)
Line 2,550 ⟶ 2,530:
f(1) = 6
</pre>
(formerly Perl 6)
▲<lang perl6>my @nums = prompt("Please type 11 space-separated numbers: ").words
▲ until @nums == 11;
▲for @nums.reverse -> $n {
▲ my $r = $n.abs.sqrt + 5 * $n ** 3;
▲ say "$n\t{ $r > 400 ?? 'Urk!' !! $r }";
▲}</lang>
▲{{out}}
▲<pre>Please type 11 space-separated numbers: 10 -1 1 2 3 4 4.3 4.305 4.303 4.302 4.301
▲4.301 399.88629974772681
▲4.302 Urk!
▲4.303 Urk!
▲4.305 Urk!
▲4.3 399.60864413533278
▲4 322
▲3 136.73205080756887
▲2 41.414213562373092
▲1 6
▲-1 -4
▲10 Urk!</pre>
=={{header|REXX}}==
|