Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,9 @@
var i: int
proc harmonicSum(i: var int, lo, hi, term): float =
i = lo
while i <= hi:
result += term()
inc i
echo harmonicSum(i, 1, 100, proc: float = 1.0 / float(i))

View file

@ -0,0 +1 @@
: mysum(lo, hi, term) | i | 0 lo hi for: i [ i term perform + ] ;

View file

@ -0,0 +1,9 @@
var i;
func sum (i, lo, hi, term) {
var temp = 0;
for (*i = lo; *i <= hi; (*i)++) {
temp += term.run;
};
return temp;
};
say sum(\i, 1, 100, { 1 / i });

View file

@ -0,0 +1,11 @@
var i = 42 // initial value doesn't matter
func sum(inout i: Int, lo: Int, hi: Int, @autoclosure term: () -> Double) -> Double {
var result = 0.0
for i = lo; i <= hi; i++ {
result += term()
}
return result
}
println(sum(&i, 1, 100, 1 / Double(i)))

View file

@ -0,0 +1,5 @@
def sum(lo; hi; term):
reduce range(lo; hi+1) as $i (0; . + ($i|term));
# The task:
sum(1;100;1/.)