Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %Vytvorit seznam s absolutnimi hodnotami daneho seznamu - [1,-2,3]-->[1,2,3]
- sezabs([],[]).
- sezabs([H|T],[H1|T2]):-H>=0, H1 is H,sezabs(T,T2).
- sezabs([H|T],[H1|T2]):-H=<0, H1 is (H*(-1)),sezabs(T,T2).
Advertisement
Add Comment
Please, Sign In to add comment
