Куча говна / Говнокод #21266 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
(* Solving the Queen Puzzle *)
#define N 8
#define NSOL 10
val () =
(((fix qsolve(n: int): stream(list0(int)) => if(n > 0)then((qsolve(n-1)*list0_make_intrange(0,N)).map(TYPE{list0(int)})(lam($tup(xs,x))=>cons0(x,xs))).filter()(lam(xs)=>let val-cons0(x0,xs) = xs in xs.iforall()(lam(i, x)=>((x0)!=x)&&(abs(x0-x)!=i+1)) end)else(stream_make_sing(nil0())))(N)).takeLte(NSOL)).iforeach()(lam(i, xs)=>(println!("Solution#", i+1, ":"); xs.rforeach()(lam(x) => ((N).foreach()(lam(i)=>(print_string(ifval(i=x," Q", " ."))));println!()));println!()))

Запостил: LispGovno LispGovno, (Updated )

Комментарии (30) RSS

  • > .filter()(lam(xs)=>let val-cons0(x0,xs) = xs in xs.iforall()(lam(i, x)=>((x0)!=x)&&(abs(x0-x)!=i+1)) end)else
    Фу, какая жуткая каша из пробелов, значков и скобочек. Будто собрались питон, экмаскрипт и лисп, напились и устроили дебош.
    Ответить
        • Ты написал бота, который ищет в сообщении глагол и склоняет его в нужную форму?
          Ответить
          • Хорошая идея, но он всё вручную. Да и не проще захардкодить все часто встречающиеся глаголы?
            Ответить
      • Ну этот язык может в док-ва. Видимо можно объявлять функции от обратного. Хотя не, тут скорее подстановка

        Я не понял, а кто Queen Puzzle решит то? Говнокод уже не тот. Го в пролог или меркури

        Вот хаски довольно легко читается. А тут я не могу не гугля квин пазл понять что решает прога
        Ответить
      • CONS0 - constant signal
        Description
        CONS0 is a submodel which outputs a signal with a constant specified value.

        короче это просто банальное объявление функции, которая возвращает свой второй параметр и игнорит первый
        Ответить
  • Никогда не понимал, нахуй надо придумывать или решать бесполезные задачи по программированию, если единственное, что требуется от программиста - тупо программировать формы, кнопки, работу с базой данных и т.д.?
    Ответить
    • Чем задроченей программист, тем меньше вероятность, что он объебется при обращении к базе. Пример пхпешников показывает, что объебаться можно даже в самой простой работе.
      Ответить
      • Строго говоря, именно адепты "PHP" создали девяносто девять процентов Интернет-сайтов. Ваш любимый "ВКонтакте" с отфотошопленными котиками и псевдофилософскими цитатками, "Facebook", две известные нам биржи фриланса, доски объявлений "Avito" и "OLX", данный сайт, тонны других... И что создали ходоки по IT-конференциям и доблестные победители олимпиад по программированию?
        Ответить
        • Это не важно, в этом бараке пхпшники - питухи.

          > доблестные победители олимпиад по программированию
          Бэкенд вконтакте они и сделали. Не пхпшникам же эту работу доверять.
          Ответить
          • Сравнительно недавно, четыре-пять лет назад. До этого спокойно выдерживали десятки миллионов быдел одновременно.
            Ответить
          • > Бэкенд вконтакте они и сделали.
            сделали. Там в соцсетях сейчас тренд: пхп ту нейтив компилятор используется. Раньше это был голый пхп. Баграунд типа бд, компиляей и осей к пхп делали коненчо не лалки пехапешники, но свою работу они сделали как видишь на славу и все пока работает
            Ответить
            • Сколько не читаю твои коменты, все не покидает ощущение, что ты школьник.
              Ответить
        • Они сделали иос, андроид, линукс, виндуос, вебшторм, студию, икскод, постгрес, да вме практически
          Ответить

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?


    8