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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Pascals-triangle-Puzzle/Julia/pascals-triangle-puzzle.julia Normal file
View file

@ -0,0 +1,14 @@
function pascal(a::Integer, b::Integer, mid::Integer, top::Integer)
yd = round((top - 4 * (a + b)) / 7)
!isinteger(yd) && return 0, 0, 0
y = Int(yd)
x = mid - 2a - y
return x, y, y - x
end
x, y, z = pascal(11, 4, 40, 151)
if !iszero(x)
println("Solution: x = $x, y = $y, z = $z.")
else
println("There is no solution.")
end

64
Task/Pascals-triangle-Puzzle/REXX/pascals-triangle-puzzle.rexx
View file

@ -1,33 +1,33 @@
/*REXX program solves a "Pyramid of Numbers" puzzle given four values.*/
/*┌──────────────────────────────────────────────┐
┌─┘ └─┐
│ answer │
│ mid / │
│ \ / │
│ \ 151 │
│ \ ααα ααα │
│ 40 ααα ααα │
│ ααα ααα ααα ααα │
│ x 11 y 4 z │
│ / \ │
│ / \ │
│ / \ │
│ B D │
└─┐ ┌─┘
└──────────────────────────────────────────────┘*/
parse arg x b y d z mid answer . /*get some values, others, just X*/
pad=left('',15) /*for inserting spaces in output.*/
top=answer - 4*b - 4*d /*calculate the top # - constants*/
middle=mid - 2*b /*calculate the mod # - constants*/
/*REXX program solves a (Pascal's) "Pyramid of Numbers" puzzle given four values. */
/*┌───────────────────────────────────────────────────────────┐
│ answer │
│ mid / │
│ \ / │
│ \ 151 │
│ \ ααα ααα │
│ 40 ααα ααα │
│ ααα ααα ααα ααα │
│ x 11 y 4 z │
│ / \ │
│ / \ │
│ / \ │
│Find: x y z b d │
└───────────────────────────────────────────────────────────┘*/
parse arg b d mid answer . /*obtain optional variables from the CL*/
if b=='' | b=="," then b= 11 /*Not specified? Then use the default.*/
if d=='' | d=="," then d= 4 /* " " " " " " */
if mid='' | mid=="," then mid= 40 /* " " " " " " */
if answer='' | answer=="," then answer= 151 /* " " " " " " */
pad= left('', 15) /*used for inserting spaces in output. */
big= answer - 4*b - 4*d /*calculate big number less constants*/
middle= mid - 2*b /* " middle " " " */
do x =-top to top
do y=-top to top
if x+y\==middle then iterate /*40 = x+2B+Y -or- 40-2*11 =x+y*/
y6=y*6 /*calculate a short cut. */
do z=-top to top
if z\==y-x then iterate /*z has to equal y-x (y=x+z) */
if x+y6+z==top then say pad 'x = ' x pad "y = " y pad 'z = ' z
end /*z*/
end /*y*/
end /*x*/
/*stick a fork in it, we're done.*/
do x =-big to big
do y=-big to big
if x+y\==middle then iterate /*40 = x+2B+Y ──or── 40-2*11 = x+y */
do z=-big to big
if z \== y - x then iterate /*z has to equal y-x (y=x+z) */
if x+y*6+z == big then say pad 'x = ' x pad "y = " y pad 'z = ' z
end /*z*/
end /*y*/
end /*x*/ /*stick a fork in it, we're all done. */

12
Task/Pascals-triangle-Puzzle/Scala/pascals-triangle-puzzle.scala Normal file
View file

@ -0,0 +1,12 @@
object PascalTriangle extends App {
val (x, y, z) = pascal(11, 4, 40, 151)
def pascal(a: Int, b: Int, mid: Int, top: Int): (Int, Int, Int) = {
val y = (top - 4 * (a + b)) / 7
val x = mid - 2 * a - y
(x, y, y - x)
}
println(if (x != 0) s"Solution is: x = $x, y = $y, z = $z" else "There is no solution.")
}