aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Hofstadter-Q-sequence/F-Sharp/hofstadter-q-sequence-1.fs Normal file
View file

@ -0,0 +1,2 @@
// Populate an array with values of Hofstadter Q sequence. Nigel Galloway: August 26th., 2020
let fQ N=let g=Array.length N in N.[0]<-1; N.[1]<-1;(for g in 2..g-1 do N.[g]<-N.[g-N.[g-1]]+N.[g-N.[g-2]])

2
Task/Hofstadter-Q-sequence/F-Sharp/hofstadter-q-sequence-2.fs Normal file
View file

@ -0,0 +1,2 @@
let Q=Array.zeroCreate<int>10 in fQ Q; printfn "%A" Q
let Q=Array.zeroCreate<int>1000 in fQ Q; printfn "%d" (Array.last Q)

1
Task/Hofstadter-Q-sequence/F-Sharp/hofstadter-q-sequence-3.fs Normal file
View file

@ -0,0 +1 @@
let Q=Array.zeroCreate<int>100000 in fQ Q; printfn "%d" (Q|>Seq.pairwise|>Seq.sumBy(fun(n,g)->if n>g then 1 else 0))

2
Task/Hofstadter-Q-sequence/F-Sharp/hofstadter-q-sequence-4.fs Normal file
View file

@ -0,0 +1,2 @@
let Q=Array.zeroCreate<int>2500000000 in fQ Q; printfn "%d" (Array.last Q)
let Q=Array.zeroCreate<int>5000000000 in fQ Q; printfn "%d" (Array.last Q)