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

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Pells-equation/Langur/pells-equation.langur
View file

@ -1,24 +1,24 @@
val .fun = f [.b, .b x .c + .a]
val .fun = fn(.a, .b, .c) [.b, .b * .c + .a]
val .solvePell = f(.n) {
val .solvePell = fn(.n) {
val .x = trunc .n ^/ 2
var .y, .z, .r = .x, 1, .x x 2
var .y, .z, .r = .x, 1, .x * 2
var .e1, .e2, .f1, .f2 = 1, 0, 0, 1
for {
.y = .r x .z - .y
.z = (.n - .y x .y) \ .z
.y = .r * .z - .y
.z = (.n - .y * .y) \ .z
.r = (.x + .y) \ .z
.e1, .e2 = .fun(.e1, .e2, .r)
.f1, .f2 = .fun(.f1, .f2, .r)
val .b, .a = .fun(.e2, .f2, .x)
if .a^2 - .n x .b^2 == 1: return [.a, .b]
if .a^2 - .n * .b^2 == 1: return [.a, .b]
}
}
val .C = f(.x) {
val .C = fn(.x) {
# format number string with commas
var .neg, .s = "", toString .x
var .neg, .s = "", string .x
if .s[1] == '-' {
.neg, .s = "-", rest .s
}