Knuth's power tree: Difference between revisions
Content added Content deleted
(Realize in F#) |
|||
Line 205: | Line 205: | ||
β.[0] |
β.[0] |
||
n.[1]<-(0,[2]); n.[2]<-(1,[]); kT [n.[1]] α; (fun n g->if g=0 then 1I else fE n g) |
n.[1]<-(0,[2]); n.[2]<-(1,[]); kT [n.[1]] α; (fun n g->if g=0 then 1I else fE n g) |
||
let xp=kT 11 |
|||
[0..17]|>List.iter(fun n->printfn "2**%d=%A\n" n (xp 2 n)) |
[0..17]|>List.iter(fun n->printfn "2**%d=%A\n" n (xp 2 n)) |
||
printfn "3**191=%A" (xp 3 191) |
printfn "3**191=%A" (xp 3 191) |
||
Line 232: | Line 232: | ||
3**191=13494588674281093803728157396523884917402502294030101914066705367021922008906273586058258347 |
3**191=13494588674281093803728157396523884917402502294030101914066705367021922008906273586058258347 |
||
</pre> |
</pre> |
||
===Float Exponentiation=== |
===Float Exponentiation=== |
||
<lang fsharp> |
<lang fsharp> |