Data update

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

View file

@ -0,0 +1,10 @@
real factorial(int n) {
real f = 1;
for (int i = 2; i <= n; ++i)
f = f * i;
return f;
}
write("The factorials for the first 5 positive integers are:");
for (int j = 1; j <= 5; ++j)
write(string(j) + "! = " + string(factorial(j)));

View file

@ -1,2 +1,2 @@
val .factorial = f fold(f{x}, 2 .. .n)
val .factorial = fn(.n) fold(fn{*}, 2 .. .n)
writeln .factorial(7)

View file

@ -1,2 +1,2 @@
val .factorial = f if(.x < 2: 1; .x x self(.x - 1))
val .factorial = fn(.x) if(.x < 2: 1; .x * self(.x - 1))
writeln .factorial(7)

View file

@ -1,8 +1,9 @@
val .factorial = f(.i) {
val .factorial = fn(.i) {
var .answer = 1
for .x in 2 .. .i {
.answer x= .x
.answer *= .x
}
.answer
}
writeln .factorial(7)

View file

@ -1,2 +1,2 @@
val .factorial = f(.n) for[=1] .x in .n { _for x= .x }
val .factorial = fn(.n) for[=1] .x in .n { _for *= .x }
writeln .factorial(7)

View file

@ -1,14 +0,0 @@
10 let f = 1
20 print "factorial"
30 input "enter an integer (1-34): ", n
40 rem loop
60 let f = f * n
70 let n = n - 1
80 if n > 0 then 40
90 print f
100 shell "pause"