Mercurial > repo

annotate bin/distort @ 10969:65ecc583baf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> sled bin/distort//2s:, math::;8cmw = len(int(2*s/N))-1
author HackBot
date Mon, 29 May 2017 08:07:47 +0000
parents 75d67a002697
children 422112e9865b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9075
c989a1669243 <fizzie> revert 58b9ee8f97a7
HackBot
parents:
diff changeset
1 #!/usr/bin/env python
10969
65ecc583baf2 <oerjan> sled bin/distort//2s:, math::;8cmw = len(int(2*s/N))-1
HackBot
parents: 10968
diff changeset
2 import sys
10968
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
3 N = 350
9075
c989a1669243 <fizzie> revert 58b9ee8f97a7
HackBot
parents:
diff changeset
4 name = sys.argv[1] if len(sys.argv) > 1 else "/dev/stdin"
c989a1669243 <fizzie> revert 58b9ee8f97a7
HackBot
parents:
diff changeset
5 with open(name, "r") as f:
c989a1669243 <fizzie> revert 58b9ee8f97a7
HackBot
parents:
diff changeset
6 data = ' \\ '.join(f.read().splitlines())
10968
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
7 s = len(data)
10969
65ecc583baf2 <oerjan> sled bin/distort//2s:, math::;8cmw = len(int(2*s/N))-1
HackBot
parents: 10968
diff changeset
8 mw = len(int(2*s/N))-1
10968
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
9 mw += s > ((N-2)*9-18*mw+1)*((10**mw-1)/9)-mw
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
10 p=0
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
11 i=1
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
12 while (p<s):
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
13 lw = N-mw-2-len(`i`)
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
14 print data[p:p+lw]
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
15 i+=1
75d67a002697 <oerjan> fetch bin/distort https://hackego.esolangs.org/get/bin/distort
HackBot
parents: 9929
diff changeset
16 p+=lw