From b423baf7176808b134ca45a6b19a990530853785 Mon Sep 17 00:00:00 2001
From: Miguel <m.i@gmx.at>
Date: Sun, 17 Mar 2019 11:16:40 +0100
Subject: sort base64/

---
 base64/base64_0.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 base64/base64_0.hs

(limited to 'base64/base64_0.hs')

diff --git a/base64/base64_0.hs b/base64/base64_0.hs
new file mode 100644
index 0000000..f7673b8
--- /dev/null
+++ b/base64/base64_0.hs
@@ -0,0 +1,25 @@
+-- File: base64.hs --
+ 
+import Data.Char
+import Text.Printf
+import qualified Data.List as L
+import qualified Data.List.Split as T
+ 
+toBase64 x      = maskBase64 x . toBase64core . asciiToBin . binFill $ x
+toBase64core    = map base64toDigit . map binToDec . T.chunksOf 6
+ 
+base64toDigit x = (['A'..'Z']++['a'..'z']++['0'..'9']++['+','/']) !! x
+binToDec        = sum . map (2^) . L.findIndices (=='1') . reverse
+asciiToBin      = concat . map (\y -> printf "%08b" y) . map ord 
+binFill x       = x ++ (take (fill64length x) $ cycle "\000")
+ 
+maskBase64 o x  = take (length x - l ) x ++ (take l $ cycle "=")
+                  where l = (fill64length o)
+ 
+fill64length x | m==0      = 0
+               | otherwise = 3-m
+               where m=mod (length x) 3
+ 
+main = do
+    line <- getLine
+    putStrLn $ toBase64 line
-- 
cgit v1.2.3