convert([],[]).
convert([X|Xs],[Y|Ys]) :-
( X == '#'
-> Y = solid
; X == '_'
-> Y = f(_)
; Y = f(X)
),
convert([X|Xs],[Y|Ys]) :-
( X == '#'
-> Y = solid
; X == '_'
-> Y = f(_)
; Y = f(X)
),
convert(Xs,Ys).
变量必须以大写字母开头
%错误
convert([x|xs],[y|ys]) :-
( x == '#'
-> y = solid
; x == '_'
-> y = f(_)
; y = f(x)
),
convert(xs,ys).