Пользовательские типы данных

@HaveMono · Регистрация: 29.04.2014

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

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

@Catstail · 09.11.2015, 17:15

А как вычисляется "обычный и льготный НДС"?

@HaveMono · 09.11.2015, 17:31 **[ТС]**

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

А как вычисляется "обычный и льготный НДС"?

Обычный *0.21
Льготный *0.11

@Catstail · 09.11.2015, 18:06

Haskell

data Veg = Veg { name :: String, price :: Double, quant :: Int, priv :: Bool} deriving (Eq,Show)
 
calc :: [Veg] -> Double
calc  = foldl (\ acc v -> if (priv v) then acc+(price v)*(fromIntegral (quant v))*1.11 else
                                         acc+(price v)*(fromIntegral (quant v))*1.21) 0
 
Main> calc [Veg {name="mellon", price=12.00, quant=1, priv=True}, Veg {name="tomato", price=10.23, quant=5, priv=F
alse}]
75.2115

@Jevgenijs · 10.04.2016, 20:44

У меня поожая задачка:

Цель: ознакомиться с принципом вызова функций с применением «pattern matching».

Задание: реализовать программу, которая принимает список товаров с указанной ценой без НДС, количеством единиц, а также типом товара с точки зрения вычисления НДС (обычный, «льготный»).

На выходе - сумма по чеку, включая НДС.

я взял предыдущий написаный код и у меня след ошибка

LAB1.hs:7:1:
Parse error: naked expression at top level
Perhaps you intended to use TemplateHaskell
Failed, modules loaded: none.

подскажите для чайника что делаю не так?

@Curry · 10.04.2016, 20:54

Jevgenijs, в предыдущем коде строки 1-5 действительно нужно сохранить в файле. А в строках 7-9 пример вызова из интерпретатора после загрузки этого файла. В общем, целый файл для компиляции и выполнения

Haskell

data Veg = Veg { name :: String, price :: Double, quant :: Int, priv :: Bool} deriving (Eq,Show)
 
calc :: [Veg] -> Double
calc  = foldl (\ acc v -> if (priv v) then acc+(price v)*(fromIntegral (quant v))*1.11 else
                                         acc+(price v)*(fromIntegral (quant v))*1.21) 0
 
main :: IO ()
main =  print $ calc [Veg {name="mellon", price=12.00, quant=1, priv=True},
                      Veg {name="tomato", price=10.23, quant=5, priv=False}]

@Jevgenijs · 10.04.2016, 22:12

Опять вопрос
ввожу к примеру список ["pencil", 12 , 10 , 1 ]
получаю

<interactive>:53:12:
No instance for (Num [Char]) arising from the literal ‘12’
In the expression: 12
In the expression: ["pencil", 12, 10, 1]
In an equation for ‘it’: it = ["pencil", 12, 10, ....]

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

@Curry · 10.04.2016, 22:24

Jevgenijs, списки в Haskell должны состоять из элементов одного типа. Нельзя и строку и число в одном списке.

@alq94 · 30.11.2016, 18:40

KolodeznyDiver, этот фолдл я так понял левоассоцативное, но так и не понял с какой целью применяется, для чего этот символ / используется? И как понять эту переменную акк в -> ? иф (прив в) это в случае когда принимает значение истина-ложь, то тогда эта пееременная acc какого-то товара + цена данного товара, количество в скобках и умножается на конкретный налог, верно

@yegorov · 30.11.2016, 18:56

С символа \ начинается лямбда-выражение. Оно обозначает функцию и имеет вид \{переменные} -> {выражение}
Например, \x y z -> x + y + z -- функция, которая складывает три числа. Её можно было бы объявить и обычным способом
В примере Catstail`a, получается

Haskell

data Veg = Veg { name :: String, price :: Double, quant :: Int, priv :: Bool} deriving (Eq,Show)
 
calc :: [Veg] -> Double
calc  = foldl foldingFunction 0
 
foldingFunction acc v = if (priv v) then acc+(price v)*(fromIntegral (quant v))*1.11
                                              else acc+(price v)*(fromIntegral (quant v))*1.21
 
main :: IO ()
main =  print $ calc [Veg {name="mellon", price=12.00, quant=1, priv=True},
                      Veg {name="tomato", price=10.23, quant=5, priv=False}]

@alq94 · 30.11.2016, 19:11

yegorov, yegorov, priv :: Bool} для чего вот используется эта истина-ложь? с какой целью в этом вычислении?

@Curry · 30.11.2016, 19:21

alq94, Рекомендую вначале почитать книжку https://www.ohaskell.guide/ или любой другой учебник по haskell, которые приведены в Полезные ссылки по Haskell

@alq94 · 30.11.2016, 19:55

calc [Veg {name="mellon", price=12.00, quant=1, priv=True},
Мeg {name="tomato", price=10.23, quant=5, priv=False}]

почему в одном написано труе, а во втором, там где томато фалсе? это по своему желанию определили?

@Curry · 30.11.2016, 20:10

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

почему в одном написано труе, а во втором, там где томато фалсе? это по своему желанию определили?

Для проверки обеих веток if.

@alq94 · 10.12.2016, 00:18

(\ acc v -> if (priv v) then acc+(price ......

Для чего используется эта переменная acc?

@Curry · 10.12.2016, 04:40

alq94, накапливает сумму которая будет результатом.

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

Рекомендую вначале почитать книжку https://www.ohaskell.guide/ или любой другой учебник по haskell, которые приведены в Полезные ссылки по Haskell

@alq94 2 / 2 / 0 Регистрация: 08.05.2015 Сообщений: 22
	30.11.2016, 19:55	13
	calc [Veg {name="mellon", price=12.00, quant=1, priv=True}, Мeg {name="tomato", price=10.23, quant=5, priv=False}] почему в одном написано труе, а во втором, там где томато фалсе? это по своему желанию определили? 0

@HaveMono 1 / 1 / 0 Регистрация: 29.04.2014 Сообщений: 29
		1
	Пользовательские типы данных 09.11.2015, 16:22. Показов 4050. Ответов 15 Метки нет (Все метки) Реализовать программу, которая принимает список овощей с ценой без НДС, количеством единиц, а также типом товара с точки зрения вычисления НДС (обычный, «льготный»). На выходе - сумма по чеку, включая НДС. Помогите с задачей. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	09.11.2015, 17:15	2
	А как вычисляется "обычный и льготный НДС"? 0

@HaveMono 1 / 1 / 0 Регистрация: 29.04.2014 Сообщений: 29
	09.11.2015, 17:31 [ТС]	3
	Сообщение от Catstail А как вычисляется "обычный и льготный НДС"? Обычный 0.21 Льготный 0.11 0

@Jevgenijs 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 9
	10.04.2016, 20:44	5
	У меня поожая задачка: Цель: ознакомиться с принципом вызова функций с применением «pattern matching». Задание: реализовать программу, которая принимает список товаров с указанной ценой без НДС, количеством единиц, а также типом товара с точки зрения вычисления НДС (обычный, «льготный»). На выходе - сумма по чеку, включая НДС. я взял предыдущий написаный код и у меня след ошибка LAB1.hs:7:1: Parse error: naked expression at top level Perhaps you intended to use TemplateHaskell Failed, modules loaded: none. подскажите для чайника что делаю не так? 0

@Jevgenijs 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 9
	10.04.2016, 22:12	7
	Опять вопрос ввожу к примеру список ["pencil", 12 , 10 , 1 ] получаю <interactive>:53:12: No instance for (Num [Char]) arising from the literal ‘12’ In the expression: 12 In the expression: ["pencil", 12, 10, 1] In an equation for ‘it’: it = ["pencil", 12, 10, ....] правильно ли я задаю список с параметрами? 0

@Curry Модератор 5047 / 3276 / 526 Регистрация: 01.06.2013 Сообщений: 6,806 Записей в блоге: 9
	10.04.2016, 22:24	8
	Jevgenijs, списки в Haskell должны состоять из элементов одного типа. Нельзя и строку и число в одном списке. 1

@alq94 2 / 2 / 0 Регистрация: 08.05.2015 Сообщений: 22
	30.11.2016, 18:40	9
	KolodeznyDiver, этот фолдл я так понял левоассоцативное, но так и не понял с какой целью применяется, для чего этот символ / используется? И как понять эту переменную акк в -> ? иф (прив в) это в случае когда принимает значение истина-ложь, то тогда эта пееременная acc какого-то товара + цена данного товара, количество в скобках и умножается на конкретный налог, верно 0

@alq94 2 / 2 / 0 Регистрация: 08.05.2015 Сообщений: 22
	30.11.2016, 19:11	11
	yegorov, yegorov, priv :: Bool} для чего вот используется эта истина-ложь? с какой целью в этом вычислении? 0

@Curry Модератор 5047 / 3276 / 526 Регистрация: 01.06.2013 Сообщений: 6,806 Записей в блоге: 9
	30.11.2016, 19:21	12
	alq94, Рекомендую вначале почитать книжку https://www.ohaskell.guide/ или любой другой учебник по haskell, которые приведены в Полезные ссылки по Haskell 0

@Curry Модератор 5047 / 3276 / 526 Регистрация: 01.06.2013 Сообщений: 6,806 Записей в блоге: 9
	30.11.2016, 20:10	14
	Сообщение от alq94 почему в одном написано труе, а во втором, там где томато фалсе? это по своему желанию определили? Для проверки обеих веток if. 0

	10.12.2016, 04:40

@alq94 2 / 2 / 0 Регистрация: 08.05.2015 Сообщений: 22
	10.12.2016, 00:18	15
	(\ acc v -> if (priv v) then acc+(price ...... Для чего используется эта переменная acc? 1

Пользовательские типы данных

Решение