Привет, а как это переписать без where (если возможно): avgGrade ::

Question

Привет, а как это переписать без where (если возможно): avgGrade ::

(Fractional a, Ord a) => a -> Char

avgGrade x
| y >= 0.9 = 'A'
| y >= 0.8 = 'B'
| y >= 0.7 = 'C'
| y >= 0.59 = 'D'
| y < 0.59 = 'F'
where y = x / 100

?

#haskell #programming #russian

0

11.09.2023

9 ответов

13 просмотров

Konstantin Gorshkov

две функции в топлевел

0

11.09.2023

Danila Danko

{-# LANGUAGE ViewPatterns #-} avgGrade :: (Fractional a, Ord a) => a -> Char avgGrade ((\x -> x / 100) -> y) | y >= 0.9 = 'A' | y >= 0.8 = 'B' | y >= 0.7 = 'C' | y >= 0.59 = 'D' | y < 0.59 = 'F'

0

11.09.2023

IC Rainbow

Danila Danko
{-# LANGUAGE ViewPatterns #-} avgGrade :: (Fracti...

ну тогда уж ((* 0.01) -> y)

0

11.09.2023

Cheese Syrowiecki

а зачем? с where красивее

0

11.09.2023

Constantine Tereschenkov Автор вопроса