sup.hs
Name:
Anonymous
2012-10-19 20:45
supchain num char = aux num char
where
aux 0 _ = replicate num "[/sub]"
aux n c = t : "[sup]" ++ aux (n-1) c
subchain num char = aux num char
where
aux 0 _ = replicate num "[/sup]"
aux n c = t : "[sup]" ++ aux (n-1) c
Name:
Anonymous
2012-10-19 20:48
>>1 wins the "Most Useful Haskell Program Ever Written"
Name:
Anonymous
2012-10-19 20:56
and by that I mean
supchain num char = aux num char
where
aux 0 c = c : (concat $ replicate num "[/sup]")
aux n c = (c : "[sup]") ++ aux (n-1) c
subchain num char = aux num char
where
aux 0 c = c : (concat $ replicate num "[/sub]")
aux n c = (c : "[sub]") ++ aux (n-1) c
Name:
Anonymous
2012-10-19 21:33
supchain = ((concat . uncurry (++)) .) . uncurry (&&&) . (((intersperse "[sup]" .) . replicate . (+1) &&& (const . flip replicate "[/sup]")))
Name:
Anonymous
2012-10-19 21:35
tagchain tagname = ((concat . uncurry (++)) .) . uncurry (&&&) . (((intersperse ("[" ++ tagname ++ "]") .) . replicate . (+1) &&& (const . flip replicate ("[/" ++ tagname ++ "]"))))
Name:
Anonymous
2012-10-19 21:52
that is one fucking ugly language
Name:
Anonymous
2012-10-19 22:06
>>6
What do you expect for a bunch of mathematicians?