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*)

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

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