Details |
Last modification |
View Log
| RSS feed
| Rev |
Author |
Line No. |
Line |
| 107 |
ira |
1 |
/* square odd & double even */
|
|
|
2 |
|
|
|
3 |
even(X) :- 0 is X mod 2.
|
|
|
4 |
odd(X) :- 1 is X mod 2.
|
|
|
5 |
|
|
|
6 |
sode([],[]).
|
|
|
7 |
|
|
|
8 |
sode([H|T],[H1|T1]) :- even(H),
|
|
|
9 |
H1 is 2*H,
|
|
|
10 |
sode(T,T1).
|
|
|
11 |
|
|
|
12 |
sode([H|T],[H1|T1]) :- odd(H),
|
|
|
13 |
H1 is H*H,
|
|
|
14 |
sode(T,T1).
|
|
|
15 |
|