PPT-Folie
Die Funktion zur Darstellung einer natürlichen Zahl im p-adischen System ist
code :: Int -> Int -> Int -> [Int] -- code p k n liefert die p-adische Darstellung von n -- mit k Stellen (aufgefüllt mit führenden Nullen) -- definiert nur für p > 1 and n `below` p^k
code p 0 0 = [] code p (k+1) n = code p k (n `div` p) ++ [n `mod` p]
Beispiel: code 2 7 24 = [0, 0, 1, 1, 0, 0, 0]