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

15
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-1.fs Normal file
View file

@ -0,0 +1,15 @@
// Display a linear combination. Nigel Galloway: March 28th., 2018
let fN g =
let rec fG n g=match g with
|0::g -> fG (n+1) g
|1::g -> printf "+e(%d)" n; fG (n+1) g
|(-1)::g -> printf "-e(%d)" n; fG (n+1) g
|i::g -> printf "%+de(%d)" i n; fG (n+1) g
|_ -> printfn ""
let rec fN n g=match g with
|0::g -> fN (n+1) g
|1::g -> printf "e(%d)" n; fG (n+1) g
|(-1)::g -> printf "-e(%d)" n; fG (n+1) g
|i::g -> printf "%de(%d)" i n; fG (n+1) g
|_ -> printfn "0"
fN 1 g

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-10.fs Normal file
View file

@ -0,0 +1 @@
fN[-1;-2;0;-3]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-11.fs Normal file
View file

@ -0,0 +1 @@
fN[1]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-2.fs Normal file
View file

@ -0,0 +1 @@
fN [1;2;3]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-3.fs Normal file
View file

@ -0,0 +1 @@
fN [0;1;2;3]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-4.fs Normal file
View file

@ -0,0 +1 @@
fN[1;0;3;4]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-5.fs Normal file
View file

@ -0,0 +1 @@
fN[1;2;0]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-6.fs Normal file
View file

@ -0,0 +1 @@
fN[0;0;0]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-7.fs Normal file
View file

@ -0,0 +1 @@
fN[0]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-8.fs Normal file
View file

@ -0,0 +1 @@
fN[1;1;1]

1
Task/Display-a-linear-combination/F-Sharp/display-a-linear-combination-9.fs Normal file
View file

@ -0,0 +1 @@
fN[-1;-1;-1]