view bin/distort @ 12001:00218840bf5c draft

<wib_jonas> `` perl -pi -e \'s/^(url\\(1hackeso\\) -) .*/$1 print URL for a file in the hackenv hg repository and web access of the repository/\' share/whatis
author HackEso <hackeso@esolangs.org>
date Mon, 04 Nov 2019 12:21:00 +0000
parents 3544b44147db
children
line wrap: on
line source

#!/usr/bin/env python
import sys
N = 447
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