view bin/distort @ 11331:a7f50f1f75f7

<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>; s"& \\S+/twitter\\.com/\\S+""; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:03:18 +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