summaryrefslogtreecommitdiff
path: root/gemtext.bqn
blob: 8836203774635d0b079f4a2b411dafb88931f8e7 (plain)
1
2
3
4
5
6
7
8
9
types⇐"#"‿"##"‿"###"‿"=>"‿"*"‿"```"
ParseTypes⇐{
	ps←≍"###"‿"###"‿"###"‿"=>"‿"*"‿"```"
	ts←≍(≠𝕩)⊸⥊¨≠¨types
	T←{𝕨∨((¬∧≠`)𝕩)}
	U←{𝕨{𝕨≡T˜𝕩}◶{∧˝(¬𝕨)≍𝕩}‿{𝕨}𝕩}
	M←{(T˜(3=(¯1⊸⊑(⥊𝕩))))⊸U¨=˝ts≍𝕩}
	M𝕩⊸{𝕩⊸{𝕨(+´∧`∘=)𝕩}¨(≠𝕩)⊸↑¨𝕨}¨ps
}