Przeszukaj forum

Mam dany algorytm metody ROU dla rozkładu normalnego i jest problem z jego kompilacją. Nie bardzo też rozumiem o co chodzi ze słowem generuj jak je zapisać w C++. Proszę o pomoc. DZIĘKI Repeat Generuj U o rozkładzie równomiernym U(0,1) Generuj V o rozkładzie równomiernym U 2 / e, 2 / e X=V/U If X2 ≤ 2(3 - U(4 + U)) then akceptuj=true Else If X2 ≤ 2/U-2U then If X2 ≤ - 4 ln U then akceptuj=true until akceptuj Return X Lubię to

Mam mały problem z kompilacją kodu: -- encrypted with https://www.stringencrypt.com (v1.0.0) [Haskell] module Main where import qualified Data.Char import qualified Data.Bits main = do putStrLn $ ffffff -- ffffff = "abc!" ffffff = zipWith f [0..] [ 0x41F6, 0x41F0, 0x41EE, 0x41AF ] where f wlyxp wflco = let rhsfn0 = wflco rhsfn1 = rhsfn0 + wlyxp rhsfn2 = rhsfn1 `Data.Bits.xor` 0x531D rhsfn3 = rhsfn2 - 0xC028 rhsfn4 = rhsfn3 + wlyxp rhsfn5 = rhsfn4 `Data.Bits.xor` 0x1851 rhsfn6 = rhsfn5 + wlyxp rhsfn7 = rhsfn6 - wlyxp rhsfn8 = rhsfn7 `Data.Bits.xor` wlyxp rhsfn9 = Data.Bits.complement rhsfn8 rhsfn10 = rhsfn9 + 0x6B0A rhsfn11 = rhsfn10 + wlyxp rhsfn12 = rhsfn11 `Data.Bits.xor` 0x2016 rhsfn13 = rhsfn12 `Data.Bits.xor` wlyxp in Data.Char.chr ( Data.Bits..&. 0xFFFF)Ideone wypluwa mi taki błąd [1 of 1] Compiling Main ( prog.hs, prog.o ) prog.hs:27:40: Couldn't match expected type `Int' with actual type `a0 -> a0' In the first argument of `Data.Char.chr', namely `(Data.Bits..&. 65535)' In the expression: Data.Char.chr (Data.Bits..&. 65535) In the expression: let rhsfn0 = wflco rhsfn1 = rhsfn0 + wlyxp rhsfn2 = rhsfn1 `Data.Bits.xor` 21277 .... in Data.Char.chr (Data.Bits..&. 65535)Jako, że moja znajomość Haskella jest znikoma może ktoś wie jak to poprawić?