hs7

--zad7
{-reverseOrdSuff :: Int -> Int

reverseOrdSuff 0 = 0

reverseOrdSuff number = helper (getNumberReversed number) ((howManyDigits (getNumberReversed number)) - 1)--1
    where
        helper n multiplier1-- multiplier2
            |n < 10 = n
            |otherwise = (n `mod` 10) * (10 ^ multiplier1) + helper (n `div` 10) (multiplier1 - 1)-- (multiplier2 * 10)

inOrder :: Int -> Bool

inOrder number
    |number `mod` 10 < (number `div` 10) `mod` 10 = True
    |otherwise = False

getNumberReversed number = helper number 1
    where
        helper number multiplier
            |inOrder number == False = ((number `mod` 10) * multiplier)
            |inOrder number == True = ((number `mod` 10) * multiplier) + helper (number `div` 10) (multiplier * 10)

howManyDigits :: Int -> Int

howManyDigits n
    |n < 10 = 1
    |otherwise = 1 + howManyDigits (n `div` 10)-}