гр. Iоаннъ Бугаевъ (bougaev) wrote,
гр. Iоаннъ Бугаевъ
bougaev

Математической задачи вопрос.

Есть такой мужчина _darkus_. Он мотематег. Ну точнее он себя считает таковым, а на самом деле - философ какой то походу.
Короче у себя в уютненьком он заебашил конкурс. Типа кто первый решит задачу:

Крестьянину нужно перевезти через реку волка, козу и капусту. Но лодка такова, что в ней может поместиться только крестьянин, а с ним или один волк, или одна коза, или одна капуста. Но если оставить волка с козой, то волк съест козу, а если оставить козу с капустой, то коза съест капусту. Как перевёз свой груз крестьянин, если известно, что все переправились через реку в целости и сохранности?

.
Привожу фрагмент ответа одного из пользователей:

--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 итерации.
Какие у вас будут варианты?
Tags: культура
Subscribe
  • Post a new comment

    Error

    default userpic

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 63 comments
Previous
← Ctrl ← Alt
Next
Ctrl → Alt →
Previous
← Ctrl ← Alt
Next
Ctrl → Alt →