Fibonacci sequence: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|ALGOL 60}}: Section added) |
m (→{{header|PL/SQL}}: Added error check for non-integer input) |
||
| Line 8,498: | Line 8,498: | ||
=={{header|PL/SQL}}== |
=={{header|PL/SQL}}== |
||
| ⚫ | |||
create or replace function fnu_fibonacci(p_num integer) return integer is |
|||
f integer; |
f integer; |
||
p integer; |
p integer; |
||
q integer; |
q integer; |
||
begin |
begin |
||
case when p_num < 0 |
case when p_num < 0 or p_num != trunc(p_num) |
||
then raise_application_error(-20001, 'Invalid input: ' || p_num, true); |
|||
when p_num in (0, 1) then f := p_num; |
when p_num in (0, 1) then f := p_num; |
||
else |
else |
||
| Line 8,516: | Line 8,518: | ||
return(f); |
return(f); |
||
end fnu_fibonacci; |
end fnu_fibonacci; |
||
/ |
|||
| ⚫ | |||
</lang> |
|||
=={{header|Plain English}}== |
=={{header|Plain English}}== |
||