Про seq

[deniok]

Как известно seq вычисляет свой первый аргумент до слабой заголовочной нормальной формы (WHNF). Не пользуясь GHCi, ответьте на вопрос, каково будет значение следующего выражения

Prelude> (\True y -> ()) False `seq` 5

Проверьте себя в GHCi. Какова будет полученная в первом аргументе seq WHNF?

UPD. А теперь вопрос на засыпку: каково будет значение следующего выражения

Prelude> (\True -> \y -> ()) False `seq` 5

Считаете ли вы это правильным?

Comments

[kurilka.livejournal.com]

Интересно, что эту WHNF GHC тупо выкидывает (что логично т.к. мы её не используем):
qrilka@qdesktop ~ $ ghc -ddump-simpl seq.hs

[1 of 1] Compiling Main             ( seq.hs, seq.o )

==================== Tidy Core ====================
Result size of Tidy Core = {terms: 7, types: 6, coercions: 0}

main :: IO ()
[GblId, Str=DmdType]
main = print @ Integer GHC.Show.$fShowInteger (__integer 5)

:Main.main :: IO ()
[GblId, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () main

Linking seq ...
qrilka@qdesktop ~ $ cat seq.hs
main = print $ (\True y -> ()) False `seq` 5

Или есть вариант, когда такая конструкция будет иметь смысл в реальной жизни?

[deni-ok.livejournal.com]

А вторую конструкцию, (\True -> \y -> ()) False `seq` 5?

[kurilka.livejournal.com]

main :: IO ()
[GblId, Str=DmdType]
main =
  print
    @ Integer
    GHC.Show.$fShowInteger
    (case Control.Exception.Base.patError
            @ (GHC.Prim.Any -> ()) "seq.hs:1:17-33|lambda"#
     of wild_00 {
     })

ну и -O0 на результат не влияет ни в том ни в другом случае

[kurilka.livejournal.com]

а, хотя -O0 же по дефолту, так что странно былоб иное