Mercurial > repo

annotate bin/scheme @ 11295:0b054ddeff49

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/(fifth) kind of vitreous/$1/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,200;
author HackBot
date Mon, 01 Jan 2018 18:01:49 +0000
parents 03ab1a0909e2
children e9fea593e702
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10174
03ab1a0909e2 <b_jonas> `` c=bin/scheme; >$c echo $\'#!/bin/sh\\nexec perl \\\'-ne/Scheme$/&&push@p,$p;$p=$_}{print$p[rand@p]\\\' share/mtg/allsets.txt\' && chmod -c a+x "$c"
HackBot
parents:
diff changeset
1 #!/bin/sh
03ab1a0909e2 <b_jonas> `` c=bin/scheme; >$c echo $\'#!/bin/sh\\nexec perl \\\'-ne/Scheme$/&&push@p,$p;$p=$_}{print$p[rand@p]\\\' share/mtg/allsets.txt\' && chmod -c a+x "$c"
HackBot
parents:
diff changeset
2 exec perl '-ne/Scheme$/&&push@p,$p;$p=$_}{print$p[rand@p]' share/mtg/allsets.txt