Jacobi symbol: Difference between revisions

import Data.List.Split (chunksOf)

import Data.Bool (bool)

jacobi :: Int -> Int -> Int

jacobi = go

go x y

| even r = plusMinus (rem y 8 `elem` [3, 5]) (go (div r 2) y)

where

plusMinus = bool id negate

r = rem x y

-------------------------- TEST ---------------------------

main :: IO ()

main = putStrLn $ jacobiTable 11 9

------------------------- DISPLAY -------------------------

jacobiTable :: Int -> Int -> String

(justifyRight w ' ' [] ++ " " ++ unwords (rjust <$> cols)) :

replicate (length $ head rowLines) '-' : rowLines

justifyRight :: Int -> a -> [a] -> [a]

justifyRight n c = (drop . length) <*> (replicate n c ++)</lang>