Writing raw binary to a file in Haskell?












0















I'm trying to do some Huffman coding in Haskell, but am having a hard time figuring out how to save the resulting 1s and 0s as they are instead of as a string. So far, I've read the following--



https://wiki.haskell.org/Dealing_with_binary_data



https://wiki.haskell.org/Binary_IO



http://hackage.haskell.org/package/binary-0.10.0.0/docs/Data-Binary.html



--but am still pretty confused as to how to deal with my specific situation. Similarly, I'm having difficulty figuring out how to write the tree structure 



data HTree = Leaf Char Int

           | Branch HTree HTree Int

             deriving (Show)


used to decode the data to a file. (HTree is the structure I'm using to store the Huffman Tree).






haskell file-io huffman-code







share|improve this question




















  • 2





    Take a look at Data.ByteString

    – typetetris
    Nov 22 '18 at 6:23











  • See: wiki.haskell.org/Dealing_with_binary_data

    – AJFarmar
    Nov 22 '18 at 9:28
















0















I'm trying to do some Huffman coding in Haskell, but am having a hard time figuring out how to save the resulting 1s and 0s as they are instead of as a string. So far, I've read the following--



https://wiki.haskell.org/Dealing_with_binary_data



https://wiki.haskell.org/Binary_IO



http://hackage.haskell.org/package/binary-0.10.0.0/docs/Data-Binary.html



--but am still pretty confused as to how to deal with my specific situation. Similarly, I'm having difficulty figuring out how to write the tree structure 



data HTree = Leaf Char Int

           | Branch HTree HTree Int

             deriving (Show)


used to decode the data to a file. (HTree is the structure I'm using to store the Huffman Tree).






haskell file-io huffman-code







share|improve this question




















  • 2





    Take a look at Data.ByteString

    – typetetris
    Nov 22 '18 at 6:23











  • See: wiki.haskell.org/Dealing_with_binary_data

    – AJFarmar
    Nov 22 '18 at 9:28














0












0








0








I'm trying to do some Huffman coding in Haskell, but am having a hard time figuring out how to save the resulting 1s and 0s as they are instead of as a string. So far, I've read the following--



https://wiki.haskell.org/Dealing_with_binary_data



https://wiki.haskell.org/Binary_IO



http://hackage.haskell.org/package/binary-0.10.0.0/docs/Data-Binary.html



--but am still pretty confused as to how to deal with my specific situation. Similarly, I'm having difficulty figuring out how to write the tree structure 



data HTree = Leaf Char Int

           | Branch HTree HTree Int

             deriving (Show)


used to decode the data to a file. (HTree is the structure I'm using to store the Huffman Tree).






haskell file-io huffman-code







share|improve this question
















I'm trying to do some Huffman coding in Haskell, but am having a hard time figuring out how to save the resulting 1s and 0s as they are instead of as a string. So far, I've read the following--



https://wiki.haskell.org/Dealing_with_binary_data



https://wiki.haskell.org/Binary_IO



http://hackage.haskell.org/package/binary-0.10.0.0/docs/Data-Binary.html



--but am still pretty confused as to how to deal with my specific situation. Similarly, I'm having difficulty figuring out how to write the tree structure 



data HTree = Leaf Char Int

           | Branch HTree HTree Int

             deriving (Show)


used to decode the data to a file. (HTree is the structure I'm using to store the Huffman Tree).






haskell file-io huffman-code




haskell file-io huffman-code






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 22 '18 at 7:16







Cameron Toy

















asked Nov 22 '18 at 5:25









Cameron ToyCameron Toy

11




11








  • 2





    Take a look at Data.ByteString

    – typetetris
    Nov 22 '18 at 6:23











  • See: wiki.haskell.org/Dealing_with_binary_data

    – AJFarmar
    Nov 22 '18 at 9:28














  • 2





    Take a look at Data.ByteString

    – typetetris
    Nov 22 '18 at 6:23











  • See: wiki.haskell.org/Dealing_with_binary_data

    – AJFarmar
    Nov 22 '18 at 9:28








2




2





Take a look at Data.ByteString

– typetetris
Nov 22 '18 at 6:23





Take a look at Data.ByteString

– typetetris
Nov 22 '18 at 6:23













See: wiki.haskell.org/Dealing_with_binary_data

– AJFarmar
Nov 22 '18 at 9:28





See: wiki.haskell.org/Dealing_with_binary_data

– AJFarmar
Nov 22 '18 at 9:28












1 Answer
1






active

oldest

votes


















2














You probably want to take a look at the Put monad in Data.Binary.Put. You didn't provide any code example but something to get you started:



-- just an example with some made up encoding  



huffmanEncode :: HTree -> Put

huffmanEncode (Leaf c val) = do

    putWord16be 0xf00

    putCharUtf8 c

    putWord32be $ fromIntegral val

huffmanEncode (Branch l r x) = do

    putWord16be 0xbaf

    putWord32be $ fromIntegral x

    huffmanEncode l

    huffmanEncode r


You would then "run" your encoder thus: runPut $ huffmanEncode myTree






share|improve this answer
























  • obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

    – Erick Gonzalez
    Nov 22 '18 at 12:53











Your Answer






StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53424380%2fwriting-raw-binary-to-a-file-in-haskell%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes









2














You probably want to take a look at the Put monad in Data.Binary.Put. You didn't provide any code example but something to get you started:



-- just an example with some made up encoding  



huffmanEncode :: HTree -> Put

huffmanEncode (Leaf c val) = do

    putWord16be 0xf00

    putCharUtf8 c

    putWord32be $ fromIntegral val

huffmanEncode (Branch l r x) = do

    putWord16be 0xbaf

    putWord32be $ fromIntegral x

    huffmanEncode l

    huffmanEncode r


You would then "run" your encoder thus: runPut $ huffmanEncode myTree






share|improve this answer
























  • obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

    – Erick Gonzalez
    Nov 22 '18 at 12:53
















2














You probably want to take a look at the Put monad in Data.Binary.Put. You didn't provide any code example but something to get you started:



-- just an example with some made up encoding  



huffmanEncode :: HTree -> Put

huffmanEncode (Leaf c val) = do

    putWord16be 0xf00

    putCharUtf8 c

    putWord32be $ fromIntegral val

huffmanEncode (Branch l r x) = do

    putWord16be 0xbaf

    putWord32be $ fromIntegral x

    huffmanEncode l

    huffmanEncode r


You would then "run" your encoder thus: runPut $ huffmanEncode myTree






share|improve this answer
























  • obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

    – Erick Gonzalez
    Nov 22 '18 at 12:53














2












2








2







You probably want to take a look at the Put monad in Data.Binary.Put. You didn't provide any code example but something to get you started:



-- just an example with some made up encoding  



huffmanEncode :: HTree -> Put

huffmanEncode (Leaf c val) = do

    putWord16be 0xf00

    putCharUtf8 c

    putWord32be $ fromIntegral val

huffmanEncode (Branch l r x) = do

    putWord16be 0xbaf

    putWord32be $ fromIntegral x

    huffmanEncode l

    huffmanEncode r


You would then "run" your encoder thus: runPut $ huffmanEncode myTree






share|improve this answer













You probably want to take a look at the Put monad in Data.Binary.Put. You didn't provide any code example but something to get you started:



-- just an example with some made up encoding  



huffmanEncode :: HTree -> Put

huffmanEncode (Leaf c val) = do

    putWord16be 0xf00

    putCharUtf8 c

    putWord32be $ fromIntegral val

huffmanEncode (Branch l r x) = do

    putWord16be 0xbaf

    putWord32be $ fromIntegral x

    huffmanEncode l

    huffmanEncode r


You would then "run" your encoder thus: runPut $ huffmanEncode myTree







share|improve this answer












share|improve this answer



share|improve this answer










answered Nov 22 '18 at 12:48









Erick GonzalezErick Gonzalez

1544




1544













  • obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

    – Erick Gonzalez
    Nov 22 '18 at 12:53



















  • obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

    – Erick Gonzalez
    Nov 22 '18 at 12:53

















obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

– Erick Gonzalez
Nov 22 '18 at 12:53





obviously this is some made up encoding.. I have no clue how you want to encode this ;-)

– Erick Gonzalez
Nov 22 '18 at 12:53




















draft saved

draft discarded




















































Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53424380%2fwriting-raw-binary-to-a-file-in-haskell%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







Popular posts from this blog

Can a sorcerer learn a 5th-level spell early by creating spell slots using the Font of Magic feature?

Image
28 6 $begingroup$ Per the Font of Magic feature, sorcerer can use Flexible Casting to create 5th-level spell slots at level 7, even though they are not typically available until level 9. You can transform unexpended sorcery points into one spell slot as a bonus action on your turn. The Creating Spell Slots table shows the cost of creating a spell slot of [5th level is 7] If such a sorcerer levels up while still having this 5th-level spell slot, can they choose a 5th-level spell as the spell they gain upon levelling up? The Spellcasting feature states: Additionally, when you gain a level in this class, you can choose one of the sorcerer spells you know and replace it with another spell from the sorcerer spell list, which also must be of a level for which you have spell slots.
Read more

Does disintegrating a polymorphed enemy still kill it after the 2018 errata?

Image
up vote 13 down vote favorite 1 After the 2018 errata, the disintegrate spell description now reads: A creature targeted by this spell must make a Dexterity saving throw. On a failed save, the target takes 10d6 + 40 force damage. The target is disintegrated if this damage leaves it with 0 hit points. If you were to polymorph an enemy into a rat and then disintegrate it, would the enemy be disintegrated or would it just return to its original form? I know that for Druids, it’s not an instant kill anymore, but is this the case for polymorph as well? dnd-5e spells polymorph errata share | improve this question edited 18 hours ago
Read more

A Topological Invariant for $pi_3(U(n))$

Image
3 3 $begingroup$ Recently, I saw a construction of topological invariant for $pi_3(U(n))$ with $ngeq 2$ : $$ N=frac{1}{24pi^2}int_{S^3} d^3x epsilon^{ijk} Tr[(U^{-1}partial_{x_i}U)(U^{-1}partial_{x_j}U)(U^{-1}partial_{x_k}U)] , $$ where $Uin U(n)$ depends on $boldsymbol{x}=(x_1,x_2,x_3)in S^3$ , $epsilon^{ijk}$ is the Levi-Civita symbol, $i,j,k=1,2,3$ , and the duplicated indexes are summed over. It is claimed that $N$ is an integer, but why? Update 02/02/2019 I think I got an argument for $n=2$ . In this case, $U=e^{i varphi} q$ with $qin SU(2)$ . Due to the trace and the Levi-Civita symbol in $N$ , $varphi$ does not contribute to $N$ . As $Tr[q^{dagger}partial_i q]=0$ and $(q^{dagger}partial_i q)^{dagger}=-q^{dagger}partial_i q$ , $q^{dagger}partial_i q$ in geneeral has the form $q^{dagger}partia
Read more