Объятия не позволяют файлу сценария использовать ключевое слово let

Я загружаю этот файл как модуль в Hugs, но получаю эту ошибку:

Файл ERROR:.\Hugs.hs:38 - Синтаксическая ошибка при вводе (непредвиденное ключевое слово "let")

data MetricUnit = Meter
            | Liter
            | KiloGram
              deriving (Show, Eq)

data ImperialUnit = Yard
              | Gallon
              | Pound
                deriving (Show, Eq)

data Measurement = MetricMeasurement Double MetricUnit
             | ImperialMeasurement Double ImperialUnit
               deriving (Show)

symbol :: MetricUnit -> String
symbol x
  | x == Meter = "m"
  | x == Liter = "L"
  | x == KiloGram = "kg"

convert (MetricMeasurement x u)
  | u==Meter    = ImperialMeasurement (1.0936*x) Yard
  | u==Liter    = ImperialMeasurement (0.2642*x) Gallon
  | u==KiloGram = ImperialMeasurement (2.2046*x) Pound

convert (ImperialMeasurement x u)
  | u==Yard   = MetricMeasurement (0.9144*x) Meter
  | u==Gallon = MetricMeasurement (3.7854*x) Liter
  | u==Pound  = MetricMeasurement (0.4536*x) KiloGram

let fac n = if n == 0 then 1 else n * fac (n-1)   --This line doesn't work
let m = MetricMeasurement 2 Meter

haskell hugs
person CodeFarmer    schedule 01.06.2013    source источник

Ответы (3)


arrow_upward
2
arrow_downward

Удалить let:

fac n = if n == 0 then 1 else n * fac (n-1)

m = MetricMeasurement 2 Meter
person md2perpe    schedule 01.06.2013

arrow_upward
6
arrow_downward

У вас не может быть операторов let на верхнем уровне. Просто напишите

fac n = if n == 0 then 1 else n * fac (n-1)
m = MetricMeasurement 2 Meter
person user2407038    schedule 01.06.2013

arrow_upward
1
arrow_downward

Как указывали другие, вы не используете let для определения верхнего уровня, только для локальных определений внутри функции.

Я ответил, потому что не мог не указать, что вы можете улучшить большую часть своего кода, используя сопоставление с образцом.

Для symbol сопоставление может идти на верхнем уровне:

symbol :: MetricUnit -> String
symbol Meter = "m"
symbol Liter = "L"
symbol KiloGram = "kg"

В то время как для двух других вы можете использовать оператор case для сопоставления с u, например:

convert (MetricMeasurement x u) = case u of
   Meter    -> ImperialMeasurement (1.0936*x) Yard
   Liter    -> ImperialMeasurement (0.2642*x) Gallon
   KiloGram -> ImperialMeasurement (2.2046*x) Pound

и convert (ImperialMeasurement x u) будет похоже.

person AndrewC    schedule 01.06.2013