lukish 24.03.2013 18:51

Посылка мудаку с картинками из #tsseet (нахуя ты меня побанил, слизь?). Хуйня уровня второй недели в кашкеле ничотак. Остальное, впрочем, тоже хуйня.

Прологопонос:

sum_pow(L, P, R) :- sum_pow_helper(L, P, R, 0).
sum_pow_helper([H | T], P, R, A) :- pow(H, P, X), sum_pow_helper(T, P, R, A + X).
sum_pow_helper([H], P, R, A) :- pow(H, P, X), R is A + X.

have_same_sum(X, Y, P) :- sum_pow(X, P, A), sum_pow(Y, P, B), A == B, !.

main(A) :-
L1 = [0,3,5,6,9,10,12,15],
L2 = [1,2,4,7,8,11,13,14],
findall(X, (between(0,100,X), have_same_sum(L1, L2, X)), A).

$> swipl --quiet -s m.pl -g "main(X),print(X),nl,fail." -t halt.
[0,1,2,3]
!

prolog, bydlo
#tssenf
re 11 comments !recommend ~bookmark Ssubscribe
1. svtk 24.03.2013 18:52 °°@_

:-

#tssenf/1
rereply
2. 2538 24.03.2013 19:01

он забанил всех, кто на него не был подписан в тот момент

#tssenf/2
rereply
3. rtsome 24.03.2013 19:11

хуёвая олимпиада
писалибы на dc каком-нибудь или рефале хотя бы

#tssenf/3
rereply
4. 238328 → 2538 /2 24.03.2013 19:50

пруф?

#tssenf/4
rereply
5. 2538 → 238328 /4 24.03.2013 19:55 fx

где-то на псто говорили

#tssenf/5
rereply
6. 238328 → 2538 /5 24.03.2013 20:02

это не пруф, ты бы еще на вики ссылался

#tssenf/6
rereply
7. 2538 → 238328 /6 24.03.2013 20:05 fx

жизнь такая штука может всякое случиться

#tssenf/7
rereply
8. 238328 → 2538 /7 24.03.2013 20:13

#tssenf/8
rereply
9. amd63 24.03.2013 21:36 Azoth

см #tsseet/27

#tssenf/9
rereply
10. lukish → amd63 /9 24.03.2013 22:03

похуй

#tssenf/10
rereply
11. amd63 → rtsome /3 25.03.2013 09:33 Azoth

Человек, который путает cheatsheet с олимпиадой... Это о таких как ты George Carlin сказал "Men are terrified that their dicks are inadequate, and so they have to 'compete' in order to feel better about themselves".

#tssenf/11
rereply
Do you really want to delete ?