Сумма каких двух слагаемых равна их разности?

@dzuin · Регистрация: 27.05.2013

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

помогите решить задачу на хаскелле
сумма каких двух слагаемых равна их разности

Haskell
1
Main> [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

этот почему то не работает(((

@IEAIAIO · 29.05.2013, 09:42

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

помогите решить задачу на хаскелле
сумма каких двух слагаемых равна их разности

Haskell
1
Main> [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

этот почему то не работает(((

Haskell
1
2
Prelude> [(0,0)]
[(0,0)]

А если серъёзно, то у меня твой код работает:

Haskell
1
2
Prelude> [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]
[(-10,0),(-9,0),(-8,0),(-7,0),(-6,0),(-5,0),(-4,0),(-3,0),(-2,0),(-1,0),(0,-10),(0,-9),(0,-8),(0,-7),(0,-6),(0,-5),(0,-4),(0,-3),(0,-2),(0,-1),(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,7),(0,8),(0,9),(0,10),(1,0),(2,0),(3,0),(4,0),(5,0),(6,0),(7,0),(8,0),(9,0),(10,0)]

Добавлено через 9 минут
Убираем бояны:

Haskell
1
2
Prelude> [(x,0)|x<-[-10..10]]
[(-10,0),(-9,0),(-8,0),(-7,0),(-6,0),(-5,0),(-4,0),(-3,0),(-2,0),(-1,0),(0,0),(1,0),(2,0),(3,0),(4,0),(5,0),(6,0),(7,0),(8,0),(9,0),(10,0)]

Осталось только доказать, что x+y=x-y тогда и только тогда, когда y=0. Но это очевидно.

@dzuin · 29.05.2013, 09:50 **[ТС]**

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

Prelude> [(x,0)|x<-[-10..10]]

Спасибо конечно но у меня все равно ругается Syntax error in input (unexpected `|'). Может это от того что я на hugs'е пишу

@IEAIAIO · 29.05.2013, 10:28

Может быть. А что у вас в главном модуле?

Уход от проблемы не являлся её решением, однако вот способ без list comprehansion:

Haskell
1
2
Prelude> map (\x->(x,0)) [-10..10]
[(-10,0),(-9,0),(-8,0),(-7,0),(-6,0),(-5,0),(-4,0),(-3,0),(-2,0),(-1,0),(0,0),(1,0),(2,0),(3,0),(4,0),(5,0),(6,0),(7,0),(8,0),(9,0),(10,0)]

Добавлено через 10 минут
Может у тебя с кодировкой проблема? Попробуй везде юникод сделать.
В конце-концов, HUGS должен поддерживать эту фичу.

@Catstail · 29.05.2013, 11:04

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

Убираем бояны:

- а тогда и выводить нечего... Все ясно и так.

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

Спасибо конечно но у меня все равно ругается Syntax error in input (unexpected `|').

- скопируй картинку с экрана и выложи.

@IEAIAIO · 29.05.2013, 11:29

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

- а тогда и выводить нечего... Все ясно и так.

Так это же хорошо, что ясно.

@Catstail · 29.05.2013, 11:47

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

Так это же хорошо, что ясно.

- но в этом случае непонятно, ЗАЧЕМ HASKELL?

@IEAIAIO · 29.05.2013, 12:03

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

- но в этом случае непонятно, ЗАЧЕМ HASKELL?

Не по теме:

Я думаю, что за тем-же, зачем его используют, выводя "Hello, world!".

@dzuin · 29.05.2013, 17:48 **[ТС]**

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

скопируй картинку с экрана и выложи.

спасибо.
ввожу в хагсе без prelude без main просто [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)] все работает. Если открываю с текста почему то уже ошибку показывает. Если кто знает скажите почему так?

@IEAIAIO · 29.05.2013, 19:58

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

спасибо.
ввожу в хагсе без prelude без main просто [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)] все работает. Если открываю с текста почему то уже ошибку показывает. Если кто знает скажите почему так?

Ты не подробен!

@dzuin · 29.05.2013, 20:54 **[ТС]**

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

Ты не подробен!

ввожу в хагсе без prelude без main просто

Haskell
1
[(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

или

Haskell
1
map (\x->(x,0)) [-10..10]

все работает. если эти же программы вставлю в блокнот например и сохраню и этот файл в хаскелле открою то уже выводится ошибка

@korvin_ · 30.05.2013, 07:31

Естественно. В блокнот нужно писать хотя бы

Haskell
1
main = print [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

@dzuin · 30.05.2013, 12:42 **[ТС]**

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

main = print [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

спасибо но все равно та же ошибка

@korvin_ · 30.05.2013, 13:00

Ну тогда не знаю. Единственное, что могу порекомендовать -- это выкинуть HUGS и использовать GHC (Haskell Platform).

@IEAIAIO · 30.05.2013, 18:12

Проверь кодировку, выложи всё содержимое.

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

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

Естественно. В блокнот нужно писать хотя бы

Haskell
1
main = print [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

Ваш пример некорректен, так как тип main::IO a. Всегда.

Если main, то так надо:

Haskell
1
main = return [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

А если просто, то вот так можно:

Haskell
1
a = [(x,y) | x <- [-10..10], y <- [-10..10], (x+y == x-y) || (x+y == y-x)]

@Сtrl · 31.05.2013, 22:00

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

Ваш пример некорректен, так как тип main::IO a. Всегда.

И, внезапно, тип функции print :: Show a => a -> IO (). Так что пример корректен в плане типизации.

@IEAIAIO · 01.06.2013, 09:31

Чувак, ты прав. Что-то я тупанул.

Извини, korvin_.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@korvin_ 4575 / 2774 / 491 Регистрация: 28.04.2012 Сообщений: 8,765
	30.05.2013, 13:00
	Ну тогда не знаю. Единственное, что могу порекомендовать -- это выкинуть HUGS и использовать GHC (Haskell Platform). 1

@IEAIAIO 25 / 25 / 2 Регистрация: 17.03.2013 Сообщений: 48
	01.06.2013, 09:31
	Чувак, ты прав. Что-то я тупанул. Извини, korvin_. 0