D vs C++ - Священные войны - Страница 17

@Dennis Ritchie · 11.02.2015, 06:27 **[ТС]**

Студворк — интернет-сервис помощи студентам

Сообщение от pycture

?

Перестаньте скулить и решайте задачу.

Сообщение от castorsky

Это функции "частично определенные" ну или как-то так, могу путаться в терминах языка haskell. Они могут передаваться как аргументы и возвращаться из других функций.

Не знал. Первый раз слышу. Редко функциональными языками пользовался. Изучал сегодня ночью, каких плюшек нет в F#. Вот и придумал условие, чтобы pycture пришлось писать велосипеды более, чем на 60 строчек кода.

Сообщение от castorsky

Ну кто знает что там в эмайти используют для исследований?

А что вообще исследуют с помощью функциональных языков? Приведите примеры.

@castorsky · 11.02.2015, 06:28

А циклы пяти уровнейвлеженности наверное тарас научил xD

@Dennis Ritchie · 11.02.2015, 06:31 **[ТС]**

Сообщение от castorsky

А циклы пяти уровнейвлеженности наверное тарас научил xD

Не. Я сам всё придумал. Просто в олимпиадных задачах часто используют очень многовложенные циклы, особенно в задачах на динамику. Думаю, что у F# возникнут проблемы с "пробросом" большого количества вложенных циклов (придётся велики писать, чтобы вызвать аналог goto). Я с тарасом не общался.

@castorsky · 11.02.2015, 06:36

Сообщение от Dennis Ritchie

А что вообще исследуют с помощью функциональных языков? Приведите примеры.

Буржуи активно используют scala, clojure для веб, например. Весь "machine learning" это декларативщина, ой да мало ли.

@Dennis Ritchie · 11.02.2015, 06:49 **[ТС]**

Сообщение от castorsky

Весь "machine learning" это декларативщина, ой да мало ли.

Понятно. Я даже не слышал про "machine learning" раньше.

Вы оставляли раньше ссылку про Python и Common Lisp, так вот я не совсем согласен, что там написано. В Python'e нет стандартных массивов вообще. Там есть высокоуровневые кортежи, которые ни чем не уступают массивам, а даже превосходят их по всем параметрам. На Python'e работать просто и удобно. Можно создать что-то действительно большое за короткое время.

@castorsky · 11.02.2015, 07:19

Ну поскольку Вы ничегошеньки не понимаете в ФП, то Ваше задание кажется "мощным", а на фп языках это все пишется довольно просто и без особых усилий потому что есть continuations. Впрочем тут и без них можно.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
;; racket-lang.org
(define (foo)
  (display "ololo: ")
  (let ((val (read)))
    (unless (and (number? val) (integer? val))
      (error val))
    val))
 
(define (main)
  (let/cc return
    (let loop1 ()
      (printf "loop1 here~n")
      (let loop2 ()
        (printf "loop2 here~n")
        (let loop3 ()
          (printf "loop3 here~n")
          (match (foo)
            (1 (return (loop1)))
            (2 (return (loop2)))
            (3 (return (loop3)))
            (_ (return))))))))
(main)

Добавлено через 28 секунд

Кликните здесь для просмотра всего текста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
loop1 here
loop2 here
loop3 here
ololo: 1
loop1 here
loop2 here
loop3 here
ololo: 2
loop2 here
loop3 here
ololo: 3
loop3 here
ololo: -1

Добавлено через 6 минут

Сообщение от Dennis Ritchie

Я даже не слышал про "machine learning" раньше.

ну это как бы всё вытекающее из кибернетики (да да именно того чем должны заниматься прикладники).

@Dennis Ritchie · 11.02.2015, 07:21 **[ТС]**

Сообщение от castorsky

а на фп языках это все пишется довольно просто и без особых усилий потому что есть continuations.

Поэтому я и написал использовать циклы, потому что в F# они есть. Чего-то pycture завис со своим F#.

Я так понимаю, что функция foo() в вашем решении не void?

@castorsky · 11.02.2015, 07:31

вон вместо дэ лучше "Unix System Programming with Standard ML" больше пользы будет, тем более я знаю Вы блестяще разбираетесь в сях.

Добавлено через 2 минуты

Сообщение от Dennis Ritchie

Я так понимаю, что функция foo() в вашем решении не void?

возвращает val, если val не целое число - генерируется исключение. Кстати стек при этом не разматывается как в дэ. Ну и в общем - в лиспе всегда возвращается последнее выражение.

Добавлено через 7 минут

Сообщение от Dennis Ritchie

Поэтому я и написал использовать циклы, потому что в F# они есть.

Очнитесь, циклы это то без чего можно жить. Поэтому постановка задачи "... обязательно использовать циклы на ФЯП..." нелепа. Вон какой говнокод выше получился из-за этого.

@Dennis Ritchie · 11.02.2015, 07:36 **[ТС]**

Сообщение от castorsky

возвращает val

Ну вот. А надо, чтобы функция была void. Есть замена указателям в Lisp?

Сообщение от castorsky

да да именно того чем должны заниматься прикладники

Должны, но не занимаются. Они MATLAB'ом больше парятся.

Сообщение от castorsky

я знаю Вы блестяще разбираетесь в сях.

Я знаю чистый C, но этого знания мало, чтобы знать C полностью, и тем более C++.

Сообщение от castorsky

Очнитесь, циклы это то без чего можно жить.

А я этого и не отрицаю.

@castorsky · 11.02.2015, 07:51

так поинтересней будет

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(define (foo)
  (display "ololo: ")
  (let ((val (read)))
    (unless (and (number? val) (integer? val))
      (error val))
    val))
 
(define (bar loop-lst)
  (match (foo)
    (1 (first loop-lst))
    (2 (second loop-lst))
    (3 (third loop-lst))
    (_ (lambda () (void)))))
 
(define (main)
  (letrec 
      ((loop3 
        (lambda ()
          (printf "loop3 here~n")
          ((bar `(,loop1 ,loop2 ,loop3))))) ;; здесь выбираем нужную функцию из bar и выполняем ее
       (loop2 (lambda ()
                (printf "loop2 here~n")
                (loop3)))
       (loop1 (lambda ()
                (printf "loop1 here~n")
                (loop2))))
    (loop1)))
 
(main)

Добавлено через 7 минут

Сообщение от Dennis Ritchie

Есть замена указателям в Lisp?

В cl есть, но это racket. И я не стану этого делать даже под пытками xD

Сообщение от Dennis Ritchie

А я этого и не отрицаю.

Так Вы требуете решения нв ФЯП обяательно с помощью циклов... это же неверно.

@Dennis Ritchie · 11.02.2015, 08:00 **[ТС]**

Сообщение от castorsky

Так Вы требуете решения нв ФЯП обяательно с помощью циклов... это же неверно.

Я требую этого от pycture.

Сообщение от castorsky

В cl есть, но это racket.

Да, я уже успел это понять, когда код не запустился на ideone.com.

Сообщение от castorsky

И я не стану этого делать даже под пытками xD

Просто смысла сравнивать D и ФЯП нет никакого. Они предназначены для разных целей. Пускай pycture попытается реализовать умный указатель на F#. Я понимаю, что есть ещё смысл сравнивать C# и D, но опять же в C# тоже нет указателей.

Сообщение от castorsky

так поинтересней будет

Да, я практически ничего не понял.

@korvin_ · 11.02.2015, 10:33

Сообщение от Dennis Ritchie

Ну вот. А надо, чтобы функция была void

Вообще-то подобная практика (передача указателя на значение и изменение его в вызванной процедуре) крайне не рекомендована к применению даже в Си. Но если очень хочется

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(define (foo label)
  (display "ololo: ")
  (let ((val (read)))
    (if (and (number? val) (integer? val))
        (set-box! label val)
        (error val)))
  (void))
 
(define (bar label . loops)
  (match (unbox label)
    (1 (first  loops))
    (2 (second loops))
    (3 (third  loops))
    (_ (lambda () (displayln "The end.")))))
 
(define (main)
  (define label (box 0))
  (define (loop1)
    (printf "loop1 here~n")
    (loop2))
  (define (loop2)
    (printf "loop2 here~n")
    (loop3))
  (define (loop3)
    (printf "loop3 here~n")
    (foo label)
    ((bar label loop1 loop2 loop3)))
  (loop1))
 
(main)

⇒

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
loop1 here
loop2 here
loop3 here
ololo: 2
loop2 here
loop3 here
ololo: 3
loop3 here
ololo: 1
loop1 here
loop2 here
loop3 here
ololo: 0
The end.

На F# можно переписать практически 1-в-1.

@Dennis Ritchie · 11.02.2015, 10:44 **[ТС]**

Сообщение от korvin_

крайне не рекомендована к применению даже в Си.

Чего-то я не помню, чтобы создатель C это не рекомендовал. Он говорил про то, что такой указатель, может навредить только некомпетентному программисту.

Сообщение от korvin_

На F# можно переписать практически 1-в-1.

Мне нужно с циклами, а не с продолжениями.

Сообщение от korvin_

displayln

Смешные названия: dispayln, loop. Я к таким не привык.

@korvin_ · 11.02.2015, 10:53

Сообщение от Dennis Ritchie

Чего-то я не помню, чтобы создатель C это не рекомендовал.

Кроме создателя Си есть куча других адекватных людей.

Сообщение от Dennis Ritchie

Он говорил про то, что такой указатель, может навредить только некомпетентному программисту.

Ссылку на фразу?

Сообщение от Dennis Ritchie

Мне нужно с циклами, а не с продолжениями.

1) Тут нет продолжений. 2) Зачем? Любишь многоступенчатые вложенности? Многие не любят.

Сообщение от Dennis Ritchie

Смешные названия: dispayln, loop. Я к таким не привык.

Что в них смешного? Если тебе пальчик показать, тоже посмеёшься?

@Curry · 11.02.2015, 10:59

Сообщение от Dennis Ritchie

Вы просто сыграли на тех же самых гуслях: воспользовались тем, что в D нет такой операции ->.

Если я правильно понял ограничение задачи с xor-ами, то Вы могли бы написать что то вроде

C++
1
2
3
      int f(int x, int y, int z){
           return ((x!=y) != (z==1))? 1 : 0;
      }

@Dennis Ritchie · 11.02.2015, 11:00 **[ТС]**

Сообщение от korvin_

Что в них смешного? Если тебе пальчик показать, тоже посмеёшься?

А то, что лисперы суют свой код не в свои темы.
displayln - это ж надо было такое придумать.

Сообщение от korvin_

1) Тут нет продолжений. 2) Зачем? Любишь многоступенчатые вложенности? Многие не любят.

Это условия моего задания, если ты тоже захотел его так выполнить.

Сообщение от korvin_

Кроме создателя Си есть куча других адекватных людей.

Кто они?

Сообщение от korvin_

Ссылку на фразу?

@Dennis Ritchie · 11.02.2015, 11:05 **[ТС]**

Сообщение от KolodeznyDiver

Если я правильно понял ограничение задачи с xor-ами, то Вы могли бы написать что то вроде

Я до такого не додумался.

@Curry · 11.02.2015, 11:21

Сообщение от Dennis Ritchie

А что, например, в Haskell нет операции "+", "-" и т. д. Или функциональные языки функции каждый раз вызывают при виде подобных символов ASCII?

В Haskell точно так же, как в большинстве языков 2+3*5 == 17

Кликните здесь для просмотра всего текста

но кроме записи 3*5 возможна ещё и (*) 3 5
В Нaskell аргументы функции не окружают скобками и не записывают через запятую, по этому, последняя запись ни чем не отличается от вызова функции, например, целочисленного деления div 5 3, которая, в свою очередь, может быть записана между своими аргументами (инфиксная запись) 5 `div` 3. Т.е. в языке нет различия между операторами и функциями.

@Dennis Ritchie · 11.02.2015, 11:22 **[ТС]**

Сообщение от KolodeznyDiver

но кроме записи 3*5 возможна ещё и (*) 3 5

Такая запись удобна для стека.

@Curry · 11.02.2015, 11:31

Сообщение от castorsky

Это функции "частично определенные"

Бывает частичное применение функций, но это не к месту. А про (+), (*) ... я выше ответил.

Добавлено через 7 минут

Сообщение от Dennis Ritchie

Такая запись удобна для стека.

Например, умножить все элементы списка на 3

Haskell
1
mul3 lst = map (3*) lst

где (3*) - частичное применение функции (*).

Кликните здесь для просмотра всего текста

В map передаётся функция одного аргумента, вроде let m3 x = 3 * x На самом деле, ещё короче

Haskell
1
mul3 = map (3*)

Новые блоги и статьи Все статьи Все блоги /
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	11.02.2015, 06:28
	А циклы пяти уровнейвлеженности наверное тарас научил xD 0