This is an easy one today for all the wizards of operating system history – for everyone else, good luck with: Q3
Please send your answers to: patrick.plattes@googlemail.com
All user with the right ’till 14pm answer will get the points, but the first one will get +5.
Type: full program
PARSE ARG M
call Fib M, "Fibonacci"
EXIT
Fib:
PARSE ARG N, subroutinename
say subroutinename||"("||N||")"
i = 3
a = 1
b = a
IF N<1 THEN
say "N("||N||") must be equal or larger than 1"
IF N>=1 THEN
say "Nr[1] "||a
IF N>=2 THEN
say "Nr[2] "||b
DO WHILE N >= i
tmp = a
a = a+b
b = tmp
say "Nr["||i||"] "||a
i = i+1
END
RETURN
Hint: This language was created for mainfames, but later ported to an operating system developed by Microsoft and a company that produced card puncher and punch cards in the early days.
Points for this challenge: 20