Mercurial > repo

annotate bin/distort @ 12256:821155c00e34 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/culprits > ../bin/cblprits; chmod a+x ../bin/cblprits
author HackEso <hackeso@esolangs.org>
date Sat, 07 Dec 2019 23:36:22 +0000
parents 3544b44147db
children
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
11993
3544b44147db <int-e> ` sed -i 3s/459/447/ bin/distort
HackEso <hackeso@esolangs.org>
parents: 11817
diff changeset
3 N = 447
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)
10972
2b4df448ff87 <oerjan> sled bin/distort//8s,int,str,
HackBot
parents: 10971
diff changeset
8 mw = len(str(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`)
10971
0b7c2ac84f2e <oerjan> revert
HackBot
parents: 10970
diff changeset
14 print data[p:p+lw]
10968
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