Home Explore Help
Sign In
CNI
/
HaskellCourse
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Implement `splitBlocks`

DricomDragon 5 years ago
parent
f9e7600f55
commit
caf482fedb
1 changed files with 3 additions and 0 deletions
Split View Show Diff Stats
  1. 3 0
      tp/rsa/main.hs

+ 3 - 0
tp/rsa/main.hs
View File 

@@ -50,3 +50,6 @@ groupN bsize s = (take bsize s):groupN bsize (drop bsize s)
 
 
 makeBlocks::Int -> Message -> Message
 
 makeBlocks bsize msg = map groupBytes (groupN bsize msg)
 
+
 
+splitBlocks::Message -> Message
 
+splitBlocks msg = concat (map ungroupBytes msg)