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/Non-decimal-radices-Output/F-Sharp/non-decimal-radices-output-1.fs Normal file
View file

@ -0,0 +1,2 @@
let ns = [30..33]
ns |> Seq.iter (fun n -> printfn " %3o %2d %2X" n n n)

6
Task/Non-decimal-radices-Output/F-Sharp/non-decimal-radices-output-2.fs Normal file
View file

@ -0,0 +1,6 @@
let bases = [2; 8; 10; 16]
ns |> Seq.map (fun n -> Seq.initInfinite (fun i -> n))
|> Seq.map (fun s -> Seq.zip s bases)
|> Seq.map (Seq.map System.Convert.ToString >> Seq.toList)
|> Seq.iter (fun s -> (printfn "%6s %2s %2s %2s" s.[0] s.[1] s.[2] s.[3]))