-
Five easy pieces #3: Mark this
First stage: file
smile.txtThe All-American Smile In a way he was like the land itself. Everything came to him too easily. But at least he knew it, and from time to time he worried about being a phoney.
Write a single expression that reads the file, follows Markdown rules, and returns an HTML document as a string, e.g.
<html> <body> <p>The All-American Smile</p> <p>In a way he was like the land itself. Everything came to him too easily.</p> <p>But at least he knew it, and from time to time he worried about being a phoney.</p> </body> </html>Hints: The .h namespace and File Binary; however
.h.htis not a solution. -
4 Replies
-
Not tempted yet? Lets make it easier and harder.
- Easier: file lines have no trailing spaces.
- Harder: let your expression contain no more than one reference to
.h.htc.
-
Oh yes. Now were having fun.
{.h.htc[y;x]}/[.h.text"nn"vs"c"$ read1 `:smile.md;`body`html] -
Second stage:
smile2.md# The All-American Smile In a way he was like the land itself. Everything came to him too easily. But at least he knew it, and from time to time he worried about being a phoney.
Output:
<html> <body> <h1>The All-American Smile</h1> <p>In a way he was like the land itself. Everything came to him too easily.</p> <p>But at least he knew it, and from time to time he worried about being a phoney.</p> </body> </html> -
A few different variations:
-1 {i:where ""~/:x;raze "<html><body><p>",@[x;i;:;count[i]#enlist "</p><p>"],"</p></body></html>"} read0 `:smile.txt -1"<html><body><p>",,[;"</p></body></html>"] ssr[;"n";""] "</p><p>" sv "nn" vs`char$read1`:smile.txt -1"<html><body><p>",ssr["</p><p>"sv"nn"vs`char$read1`:smile.txt;"n";""],"</p></body></html>" -1{.h.htc[y;x]}over(ssr["</p><p>"sv"nn"vs`char$read1`:smile.txt;"n";""];`p;`body;`html) -1({.h.htc[y;x]})(ssr["</p><p>"sv"nn"vs`char$read1`:smile.txt;"n";""];`p;`body;`html)
Log in to reply.