65 lines
1.9 KiB
Text
65 lines
1.9 KiB
Text
OBTW find some factorial primes - primes that are f - 1 or f + 1
|
|
for some factorial f
|
|
TLDR
|
|
|
|
HAI 1.3
|
|
|
|
HOW IZ I TESTIN YR P BTW PRIMALITY TEST WITH TRIAL DIVISHUN
|
|
DIFFRINT 3 AN SMALLR OF 3 AN P, O RLY?
|
|
YA RLY
|
|
FOUND YR BOTH SAEM P AN 2
|
|
MEBBE BOTH SAEM 0 AN MOD OF P AN 2
|
|
FOUND YR FAIL
|
|
NO WAI
|
|
I HAS A IZPRIME ITZ WIN
|
|
I HAS A N ITZ 3
|
|
I HAS A NSKWARED ITZ 9
|
|
IM IN YR PRIMELOOP UPPIN YR I TIL DIFFRINT NSKWARED AN SMALLR OF P AN NSKWARED
|
|
DIFFRINT 0 AN MOD OF P AN N, O RLY?
|
|
YA RLY
|
|
N R SUM OF N AN 2
|
|
NSKWARED R PRODUKT OF N AN N
|
|
NO WAI
|
|
IZPRIME R FAIL
|
|
NSKWARED R SUM OF P AN 1
|
|
OIC
|
|
IM OUTTA YR PRIMELOOP
|
|
FOUND YR IZPRIME
|
|
OIC
|
|
IF U SAY SO
|
|
|
|
HOW IZ I PADDIN YR FPNUMBR
|
|
I HAS A PAD ITZ ""
|
|
BOTH SAEM FPNUMBR AN SMALLR OF FPNUMBR AN 9, O RLY?
|
|
YA RLY
|
|
PAD R " "
|
|
OIC
|
|
FOUND YR SMOOSH PAD AN FPNUMBR MKAY
|
|
IF U SAY SO
|
|
|
|
HOW IZ I SHOWIN YR FPNUMBR AN YR N AN YR HOWDIFF AN YR FP
|
|
VISIBLE SMOOSH I IZ PADDIN YR FPNUMBR MKAY ...
|
|
AN ":: " AN I IZ PADDIN YR N MKAY ...
|
|
AN "! " AN HOWDIFF AN " 1 = " AN FP ...
|
|
MKAY
|
|
IF U SAY SO
|
|
|
|
I HAS A F ITZ 1
|
|
I HAS A N ITZ 0
|
|
I HAS A KOWNT ITZ 0
|
|
IM IN YR FPLOOP UPPIN YR I TIL BOTH SAEM KOWNT AN 10
|
|
N R SUM OF N AN 1
|
|
F R PRODUKT OF F AN N
|
|
I IZ TESTIN YR DIFF OF F AN 1 MKAY, O RLY?
|
|
YA RLY
|
|
KOWNT R SUM OF KOWNT AN 1
|
|
I IZ SHOWIN YR KOWNT AN YR N AN YR "-" AN YR DIFF OF F AN 1 MKAY
|
|
OIC
|
|
I IZ TESTIN YR SUM OF F AN 1 MKAY, O RLY?
|
|
YA RLY
|
|
KOWNT R SUM OF KOWNT AN 1
|
|
I IZ SHOWIN YR KOWNT AN YR N AN YR "+" AN YR SUM OF F AN 1 MKAY
|
|
OIC
|
|
IM OUTTA YR FPLOOP
|
|
|
|
KTHXBYE
|