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]
!

1. svtk 24.03.2013 18:52 °°@_

:-

2. 2538 24.03.2013 19:01

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

3. rtsome 24.03.2013 19:11

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

4. 2383282538 /2 24.03.2013 19:50

пруф?

5. 2538238328 /4 24.03.2013 19:55 fx

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

6. 2383282538 /5 24.03.2013 20:02

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

7. 2538238328 /6 24.03.2013 20:05 fx

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

8. 2383282538 /7 24.03.2013 20:13

9. amd63 24.03.2013 21:36 Azoth

см #tsseet/27

10. lukishamd63 /9 24.03.2013 22:03

похуй

11. amd63rtsome /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".

Do you really want to delete ?