картинка с проблемой вагонетки, переводящий стрелки говорит:
почему-то никто даже не предполагает, что мб тормоза не очень качественно тормозят вагонетку?

дернуть рычаг, когда вагонетка уже прошла наполовину стрелку, чтобы она сошла с рельс

а, не тот чат, оффтоп тут

слушайте, а idle gc минорный или мажорный?

мажорный

ясно понятно

спасибо

забыл выключить, удивился в графане что это у меня столько гц

и все мажорные

Можно ли в тела main вызвать name из greet?
И почему-то в функци greet
<- readLn :: IO Float не работает но
<- readLn работает  при работе нечего не принимает

что значит "не работает"? какую ошибку выдаёт?

что значит "вызвать name из greet"? это же строка. получить name из greet? да, получить можно, сделав name результатом greet:

greet :: IO String
greet = do
  ...
  pure name -- последней строкой

> Можно ли в тела main вызвать name из greet?
Нет, name видна только в области видимости greet.
> <- readLn :: IO Float не работает но
Если name будет Float, то его нельзя будет сконкатенировать со строкой.
> <- readLn работает  при работе нечего не принимает
readLn применяет функцию read ко введённой строке, чтобы сконвертировать её в значение нужного типа. Если требуется исходная строка, то делать этого не нужно.

Я хотел так:
Если тип товаров можно ввести. С помощью (replicateM_)
Например ручка и книга получается 2 разные вещи.
книга:
количество 2шт
цена 100
Ручка
Количество 1шт
Цена 50

Итого 200*2+1*50=450

Но если я вас правильно понял для каждого товара нужна отдельная функция!?

{-# LANGUAGE MultiWayIf #-}
import System.IO
import Data.Fixed
import Control.Monad
greet = do
 putStr " Enter name ... "
 title <- getLine
 putStrLn $ "name : " ++ title


 putStr "Enter quantity : "
 quantity <- readLn
 putStrLn $ "quantity : " ++ quantity

 putStr "Enter a price : "
 price <- readLn  
 putStrLn $ "price : " ++ price

main :: IO ()
main = do

   putStr "Enter Typ: "
   n <- readLn
   replicateM_ n greet
 
   putStr "Type 1 or 2 "
   typeofprod <- readLn :: IO Int
   putStrLn (if   | typeofprod == 1 -> "1" ++ show ( quantity * price)
                  | typeofprod == 2 -> "2" ++ show ( quantity * price)
                  | otherwise -> "Type 1 or 2" )

Мой нерабочий код пока выглядит так)

n же это количество вводимых товаров, а не тип

Понятно, а почему его нельзя использовать как тип товара

Вам от каждого товара надо получить стоимость (которая возможно по-разному считается в зависимости от типа товара), а в конце их сумму?

Например в теле функции вывести его количество