23 lines
178 B
Prolog
23 lines
178 B
Prolog
#1.2
|
|
|
|
f([],0).
|
|
f([H|T],S):- f(T,S1), g([H|T],S, S1).
|
|
|
|
g([H|T],S,S1):- H<S1,!,S is H+S1.
|
|
g([_|T],S,S1):- S is S1 + 2.
|
|
|
|
|
|
#1.4
|
|
|
|
# 111
|
|
# 112
|
|
# 121
|
|
# 122
|
|
# 211
|
|
# 212
|
|
# 221
|
|
# 222
|
|
|
|
#2
|
|
|