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

17
Task/Cistercian-numerals/F-Sharp/cistercian-numerals.fs Normal file
View file

@ -0,0 +1,17 @@
// Cistercian numerals. Nigel Galloway: February 2nd., 2021
let N=[|[[|' ';' ';' '|];[|' ';' ';' '|];[|' ';' ';' '|]];
[[|'#';'#';'#'|];[|' ';' ';' '|];[|' ';' ';' '|]];
[[|' ';' ';' '|];[|'#';'#';'#'|];[|' ';' ';' '|]];
[[|'#';' ';' '|];[|' ';'#';' '|];[|' ';' ';'#'|]];
[[|' ';' ';'#'|];[|' ';'#';' '|];[|'#';' ';' '|]];
[[|'#';'#';'#'|];[|' ';'#';' '|];[|'#';' ';' '|]];
[[|' ';' ';'#'|];[|' ';' ';'#'|];[|' ';' ';'#'|]];
[[|'#';'#';'#'|];[|' ';' ';'#'|];[|' ';' ';'#'|]];
[[|' ';' ';'#'|];[|' ';' ';'#'|];[|'#';'#';'#'|]];
[[|'#';'#';'#'|];[|' ';' ';'#'|];[|'#';'#';'#'|]];|]
let fN i g e l=N.[l]|>List.iter2(fun n g->printfn "%sO%s" ((Array.rev>>System.String)n) (System.String g)) N.[e]
printfn " O"
N.[g]|>List.rev|>List.iter2(fun n g->printfn "%sO%s" ((Array.rev>>System.String)n) (System.String g)) (N.[i]|>List.rev)
[(0,0,0,0);(0,0,0,1);(0,0,2,0);(0,3,0,0);(4,0,0,0);(5,5,5,5);(6,7,8,9)]|>List.iter(fun(i,g,e,l)->printfn "\n%d%d%d%d\n____" i g e l; fN i g e l)