Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- map_floorKey([(H1, H2)], Key, Result) :- (Key >= H1), Result is H1.
- map_floorKey([(H1, H2), (H3, H4) | T], Key, Result) :- (Key >= H1), (H3 > Key), Result is H1.
- map_floorKey([(H1, H2) | T], Key, Result) :- map_floorKey(T, Key, Result).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement