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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-1.math Normal file
View file

@ -0,0 +1,11 @@
b+c==a
d+e==b
e+f==c
g+h==d
h+i==e
i+j==f
l+X==g
l+Y==h
n+Y==i
n+Z==j
X+Z==Y

4
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-2.math Normal file
View file

@ -0,0 +1,4 @@
a->151
d->40
l->11
n->4

3
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-3.math Normal file
View file

@ -0,0 +1,3 @@
eqs={a==b+c,d+e==b,e+f==c,g+h==d,h+i==e,i+j==f,l+X==g,l+Y==h,n+Y==i,n+Z==j,Y==X+Z};
knowns={a->151,d->40,l->11,n->4};
Solve[eqs/.knowns,{b,c,e,f,g,h,i,j,X,Y,Z}]

1
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-4.math Normal file
View file

@ -0,0 +1 @@
{{b -> 81, c -> 70, e -> 41, f -> 29, g -> 16, h -> 24, i -> 17, j -> 12, X -> 5, Y -> 13, Z -> 8}}

5
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-5.math Normal file
View file

@ -0,0 +1,5 @@
151
81 70
40 41 29
16 24 17 12
5 11 13 4 8

2
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-6.math Normal file
View file

@ -0,0 +1,2 @@
triangle[n_, m_] := Nest[MovingMap[Total, #, 1] &, {x, 11, y, 4, z}, n - 1][[m]]
Solve[{triangle[3, 1] == 40, triangle[5, 1] == 151, y == x + z}, {x, y, z}]

1
Task/Pascals-triangle-Puzzle/Mathematica/pascals-triangle-puzzle-7.math Normal file
View file

@ -0,0 +1 @@
{{x -> 5, y -> 13, z -> 8}}