School Commit Init
This commit is contained in:
@@ -0,0 +1,22 @@
|
||||
#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
|
||||
|
||||
Reference in New Issue
Block a user