| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 10:54:06 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=4bc9200d3f2421aa4fa195c47e8ca16c517f32605976e1e3f885d49c9f6b2a79a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22dfXKl2VGEQVUJACig4VVgjZDPtLNw55y%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cdd1474fa8a8b0-BLR
ssort([],[]).ssort([M1|S],[H|T]):-min(H,T,M1),remove(M1,[H|T],N),ssort(S,N). - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ssort([],[]).
- ssort([M1|S],[H|T]):-min(H,T,M1),remove(M1,[H|T],N),ssort(S,N).
- min(M,[],M).
- min(M,[H|T],M1):-min2(M,H,N),min(N,T,M1).
- min2(A,B,A):-less(A,B).
- min2(A,B,B):-not(less(A,B)).
- less(A,B):-(A<B).
- append([],B,B).
- append([H|A],B,[H|AB]):-append(A,B,AB).
- remove(X,L,N):-append(A,[X|B],L),append(A,B,N).
Tags:
project prolog
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐ Free Crypto Method ✅ NEVER SEEN BEFORE ⭐⭐⭐
JavaScript | 4 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ 4
JavaScript | 10 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ✅ NEVER SEEN...
JavaScript | 13 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ T
JavaScript | 22 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 23 sec ago | 0.24 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 32 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ T
JavaScript | 33 sec ago | 0.24 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 44 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
