Mercurial > repo

view bin/distort @ 11294:9c53d92085c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(alphabet).*/$1 doesn\'t have the letter C.\\n/ or die; open$o,">",$f; print$o $_ or die; print substr$_,300;
author HackBot
date Mon, 01 Jan 2018 18:00:26 +0000
parents 2b4df448ff87
children 8694b8aa2802
line wrap: on
line source

#!/usr/bin/env python
import sys
N = 350
name = sys.argv[1] if len(sys.argv) > 1 else "/dev/stdin"
with open(name, "r") as f:
  data = ' \\ '.join(f.read().splitlines())
s = len(data)
mw = len(str(2*s/N))-1
mw += s > ((N-2)*9-18*mw+1)*((10**mw-1)/9)-mw
p=0
i=1
while (p<s):
  lw = N-mw-2-len(`i`)
  print data[p:p+lw]
  i+=1
  p+=lw