Arithmetic/Rational: Difference between revisions

=={{header|Picat}}==

<lang Picat>

foreach (I in 2..2**19, is_perfect(I))

println(I)

divisors(N) = [I : I in 1..N, N mod I == 0].

 

add(frac(A,B), frac(C,D)) = new_fract(A*D+B*C, B*D).

 

sum_rationals([X]) = X.

sum_rationals([X,Y|T]) = sum_rationals([add(X,Y)|T]).

{{out}}

<pre>