Mercurial > repo

view interps/glass/exa/cat.glass @ 3963:aed9d0f65de6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<kmc> printf \'fun fact 0 = 1\\n | fact n = n * fact (n - 1)\\n\' > wisdom/fun\\ fact
author HackBot
date Thu, 31 Oct 2013 23:04:42 +0000
parents 859f9b4339e6
children
line wrap: on
line source

{M
  [(ln)
    (_a)1=
    ,
    /(_a)<0>^\
    <1>
  ]
  [m
    (_i)I!
    (_o)O!
    (_t)$
    (_c)(_i)e.?(_t)(ln).?=
    /(_c)
      (_i)c.?
      (_o)o.?
      (_c)(_i)e.?(_t)(ln).?=
    \
  ]
}