Короче у себя в уютненьком он заебашил конкурс. Типа кто первый решит задачу:
Крестьянину нужно перевезти через реку волка, козу и капусту. Но лодка такова, что в ней может поместиться только крестьянин, а с ним или один волк, или одна коза, или одна капуста. Но если оставить волка с козой, то волк съест козу, а если оставить козу с капустой, то коза съест капусту. Как перевёз свой груз крестьянин, если известно, что все переправились через реку в целости и сохранности?
.
Привожу фрагмент ответа одного из пользователей:
--State, FromState
type StateHist = (State, State)
type QueueStateHist = [StateHist]
constraint :: ShoreState -> Bool
constraint a = not(((not $ elem Peasant a) && (elem Cabbage a) && (elem Goat a))
|| ((not $ elem Peasant a) && (elem Wolf a) && (elem Goat a)))
stateConstraint s = (constraint $ fst s) && (constraint $ snd s)
Больше символов тут: http://users.livejournal.com/_darkus_/606254.html
.
Понятно, что это пиздец.
Понятно, что когда кругом такие, блядь, умные, не просто капусту не отвезёшь - постареешь нахуй уапще.
Я, канеш, в конкурсе не участвовал, потому как это всё равно, что в детском саду силушкой хвастаться. И уже опосля окончания конкурса, когда ботаники начали радоваться охуенным книжкам без картинок (приз такой), опубликовал своё решение:
"Интересно, за каким хуем пейзанину возить волка? Я б на месте колхозника угандошил бы волчка, козе на ебало надел бы мешок и перевёз бы всё за один раз."
Среди математегов наиболее оптимальная грузоперевозка прошла в 4 итерации.
Какие у вас будут варианты?
← Ctrl ← Alt
Ctrl → Alt →
← Ctrl ← Alt
Ctrl → Alt →