Subversion Repositories programming

/* square odd & double even */

even(X) :- 0 is X mod 2.
odd(X)  :- 1 is X mod 2.

sode([],[]).

sode([H|T],[H1|T1]) :- even(H),
                       H1 is 2*H,
                       sode(T,T1).

sode([H|T],[H1|T1]) :- odd(H),
                       H1 is H*H,
                       sode(T,T1).