Mercurial > repo
view paste/paste.31992 @ 11293:a7899ef2d7b6
<wob_jonas> learn Aristotle said that every illness can be cured by balancing the four vitreous humors, and everyone believed him for two thousand years, even though people still died of illnesses. It wasn\'t until the 20th century that Szent-Gy\xc3\xb6rgyi Albert realized that Aristotle didn\'t find fifth kind of vitreous humor, vitamin C, because the Greek alphabet
author | HackBot |
---|---|
date | Mon, 01 Jan 2018 17:57:43 +0000 |
parents | 61773ea4b7b2 |
children |
line wrap: on
line source
bin/?: else echo "$1? ¯\(°_o)/¯"; exit 1; bin/¿:? "$@" | rev | tac bin/؟:? "$@" | rev bin/anonlog: grep -P -i -- "$1" ????-??-??.txt | shuf -n 1| sed "s=<[^>]*> ==" bin/anonlog: file=$(shuf -en 1 ????-??-??.txt) bin/aseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt) bin/bienvenido:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.es"; } else { exec "bin/?", "welcome.es"; } bin/bseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt) bin/define: echo 'Define what?' bin/define: --dump --width=1000 'http://google.com/search?q=define:'"$QUERY" | Binary file bin/delvs matches bin/e:echo elieser224: ¿por qué con frecuencia altas y bajas? bin/ello: if (!(name != null ? name.length : void 0)) { bin/ello: console.log(consonant_then_o.test(name) ? name.replace(consonant_then_o, function(match, before, consonant, rest) { bin/ello: }) : ell_manglable.test(name) ? name.replace(ell_manglable, function(match, before, middle, rest) { bin/ello: }) : starts_with_o.test(name) ? 'hell' + name : ends_with_consonant_then_vowel.test(name) ? name.replace(ends_with_consonant_then_vowel, function(match, before) { bin/ello: }) : ends_with_consonant.test(name) ? name + 'ello' : "Hello, " + name + "!"); Binary file bin/emmental matches bin/etymology: echo 'Look up what?' bin/etymology: --dump --width=1000 'http://etymonline.com/?search='"$QUERY" | bin/forget:echo "Forget what?" Binary file bin/fortune matches Binary file bin/fueue matches bin/gaseen:arr=(/var/irclogs/_esoteric/????-??-??.txt) bin/gccrun:r=$? bin/google: echo 'Google what?' bin/google: --dump --width=1000 'http://google.com/search?q='"$QUERY" | bin/?h:? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])\b/$1h$2/ig' bin/hatesgeo:perl -n -e '/:(.*?)!.*JOIN/; $j{$1}++; END {print "$_ $j{$_};" for sort {$j{$b} <=> $j{$a}} keys %j}' $@ bin/?hh:\? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])/$1h$2/ig' bin/js:## <http://icedtea.classpath.org/bugzilla/show_bug.cgi?id=179> bin/js:## <http://www.openoffice.org/issues/show_bug.cgi?id=91641> bin/learn:topic=$(echo "$1" | lowercase | sed 's/^\(a\|the\) //;s/s\? .*//') bin/list:grep '^..:..:..: <[^>]*> `list' /var/irclogs/_esoteric/201[3-9]-??-??.txt | sed 's/^.*<//;s/>.*//;s/_*$//' | sort -u | tr '\n' ' ' bin/log: grep -P -i -- "$1" ????-??-??.txt | shuf -n 1 bin/log: file=$(shuf -en 1 ????-??-??.txt) Binary file bin/lua matches Binary file bin/luac matches bin/luarocks:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path bin/luarocks-admin:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path Binary file bin/macro matches Binary file bin/mov matches Binary file bin/node matches Binary file bin/nooodl: matches bin/pastelog: file=$(shuf -en 1 ????-??-??.txt) bin/pastelog: lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301) bin/pastelogs: file=$(shuf -en 1 ????-??-??.txt) bin/pastelogs: lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301) bin/pastlog:grep -P -i -- "$1" $(ls ????-??-??.txt | head -n -1) | shuf -n 1 bin/prefixes:echo 'Bot prefixes: fungot ^, HackEgo `, EgoBot !, lambdabot @ or ?, thutubot +, metasepia ~, jconn ) , blsqbot !' bin/quine:cd /var/irclogs/_esoteric; cat $(ls ????-??-??.txt | tail -1) | sed 's/[^>]*> //' | grep '^`' | tail -1 #Best cheating quine ever? bin/randomanonlog:awk 'sub(/^<[^:]+:[^ ]+ PRIVMSG #esoteric :/,"")' < `ls /var/irclogs/_esoteric/????-??-??-raw.txt | shuf -n1` | shuf -n1 Binary file bin/rot256 matches Binary file bin/searchlog matches bin/seen:($n,$e)=split /\s+/, join(" ",@ARGV); $n=~s/ *$//; $c="ls -r /var/irclogs/_esoteric/????-??-??.txt"; $c.=" | head -n 30" unless $e eq "ever"; @f=split /\s+/, `$c`; for $f (@f) { open F,"<$f"; @l=grep(/^..:..:..: <$n>/i,<F>); close F; if (@l) { $b=$f; $b=~s#.*/(.*?).txt#$1#; print "$b $l[-1]"; exit 1; } } print $e eq "ever" ? "not that I remember" : "not lately; try `seen $n ever"; bin/seens:find /var/irclogs/_esoteric -mindepth 1 -maxdepth 1 -type f -name '????-??-??.txt' | sort -r | xargs -d'\n' -r tac -- | grep "^..:..:..: <$1>" | head -n 1 bin/shove: ? @ARGV : <>; bin/shove:my $width = 0; $width = ($width < length $_ ? length $_ : $width) for @program; bin/shove: $cmd eq "'" and ($quotecount += ($lws ? -1 : 1)), ($lws = !$lws); bin/shove: $cmd eq '"' and ($quotecount += ($lws ? 1 : -1)), ($lws = !$lws); Binary file bin/tclkit matches bin/tell:echo "I think you mean \"@tell $@\" instead?" Binary file bin/units matches bin/welcome:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome"; } else { exec "bin/?", "welcome"; } bin/wercome:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? wercome"; } else { exec "bin/?", "wercome"; } bin/wl: url = 'http://%s.wikipedia.org/w/api.php?format=json&action=query&' \ bin/word:my $parse_line = qr/(\d*)(?: +(\d+))?/;