Téléverser les fichiers vers "/"
This commit is contained in:
parent
5d224aeaeb
commit
194b77af5e
4 changed files with 112 additions and 0 deletions
56
fibo.hai
Normal file
56
fibo.hai
Normal file
|
@ -0,0 +1,56 @@
|
|||
HAI 1.2
|
||||
|
||||
HOW IZ I POWER YR NB AN YR N
|
||||
I HAS A RES ITZ NB
|
||||
|
||||
IM IN YR LOOP
|
||||
DIFFRINT N AN SMALLR OF N AN 1, O RLY?
|
||||
YA RLY
|
||||
N R DIFF OF N AN 1
|
||||
RES R PRODUKT OF RES AN NB
|
||||
NO WAI
|
||||
FOUND YR RES
|
||||
OIC
|
||||
IM OUTTA YR LOOP
|
||||
|
||||
IF U SAY SO
|
||||
|
||||
|
||||
HOW IZ I SQUARE YR NB
|
||||
I HAS A RES ITZ 1.0
|
||||
I HAS A ITE ITZ 0
|
||||
|
||||
IM IN YR LOOP
|
||||
DIFFRINT ITE AN SMALLR OF ITE AN 9, O RLY?
|
||||
YA RLY
|
||||
FOUND YR RES
|
||||
NO WAI
|
||||
RES R QUOSHUNT OF SUM OF QUOSHUNT OF NB AN RES AN RES AN 2
|
||||
ITE R SUM OF ITE AN 1
|
||||
OIC
|
||||
IM OUTTA YR LOOP
|
||||
|
||||
IF U SAY SO
|
||||
|
||||
|
||||
HOW IZ I FIBO YR NB
|
||||
I HAS A GOLDEN ITZ QUOSHUNT OF SUM OF I IZ SQUARE YR 5 MKAY AN 1 AN 2
|
||||
I HAS A GOLDENPRIME ITZ QUOSHUNT OF DIFF OF I IZ SQUARE YR 5 MKAY AN 1 AN 2
|
||||
I HAS A N ITZ 0.0
|
||||
|
||||
IM IN YR LOOP
|
||||
DIFFRINT N AN SMALLR OF N AN NB, O RLY?
|
||||
YA RLY
|
||||
GTFO
|
||||
NO WAI
|
||||
VISIBLE PRODUKT OF QUOSHUNT OF 1 AN I IZ SQUARE YR 5 MKAY AN DIFF OF I IZ POWER YR GOLDEN AN YR N MKAY AN I IZ POWER YR GOLDENPRIME AN YR N MKAY
|
||||
N R SUM OF N AN 1
|
||||
OIC
|
||||
IM OUTTA YR LOOP
|
||||
|
||||
IF U SAY SO
|
||||
|
||||
|
||||
I IZ FIBO YR 15 MKAY
|
||||
|
||||
KTHXBYE
|
Loading…
Add table
Add a link
Reference in a new issue