annotate paste/paste.21704 @ 12257:1924fe176291 draft

<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/cwlprits > ../bin/cblprits; chmod a+x ../bin/cblprits
author HackEso <hackeso@esolangs.org>
date Sat, 07 Dec 2019 23:36:53 +0000
parents fe5ca19b3dca
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10193
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
1 #!/bin/bash
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
2 TIMEFORMAT="real: %lR, user: %lU, sys: %lS"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
3 shopt -s extglob globstar
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
4 eval -- "$1" | rnooodl
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
5 echo hi
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
6 exec
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
7 #!/bin/sh
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
8 CMD=`echo "$1" | cut -d' ' -f1`
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
9 ARG=`echo "$1" | cut -d' ' -f2-`
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
10 exec ibin/$CMD "$ARG"#!/bin/bash
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
11 topic=$(echo "$1" | lowercase | sed "s/noo\+dl/nooodl/;s/ *$//")
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
12 topic1=$(echo "$topic" | sed "s/s$//")
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
13 cd wisdom
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
14 if [ \( "_$topic1"_ = "_ngevd"_ \) -a \( -e ngevd \) ];
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
15 then cat /dev/urandom;
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
16 elif [ -e "$topic" ];
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
17 then cat "$topic";
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
18 elif [ -e "$topic1" ];
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
19 then cat "$topic1";
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
20 else echo "$1? ¯\(°​_o)/¯"; exit 1;
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
21 fi | rnooodl
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
22 ? "$@" | rev | tac
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
23 #!/bin/sh
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
24 allquotes | if [ "$1" ]; then
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
25 if expr "$1" + 0 >/dev/null 2>&1; then
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
26 sed "$1q;d"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
27 else
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
28 grep -P -i -- "$1"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
29 fi
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
30 else shuf --random-source=/dev/urandom -n 1; fi
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
31 quote; quote
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
32 #!/bin/bash
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
33 TIMEFORMAT="real: %lR, user: %lU, sys: %lS"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
34 shopt -s extglob globstar
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
35 rm canary; eval -- "$1" | rnooodl
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
36 #!/usr/bin/perl -w
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
37 $_ = join " ", @ARGV; if (s/^([^ ]*) +([^ ]*) +//) { print "$1: "; exec $2, $_; }
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
38 echo $(ls bin | shuf -n 1) $*
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
39 ? "$@" | rev
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
40 #!/bin/bash
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
41 TIMEFORMAT="real: %lR, user: %lU, sys: %lS"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
42 shopt -s extglob globstar
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
43 eval -- "$1" | rnooodl
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
44 \` "$@" |& sport
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
45 \` "$@" |& sport '' 2
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
46 cmd="${1-quote}"; for i in {1..5}; do \` "$cmd"; done | sport
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
47 #! /bin/bash
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
48 cmd="$1"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
49 shift
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
50 f="$*"
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
51 if [[ -z "$f" && "$cmd" == *\ * ]]; then f="${cmd#* }"; cmd="${cmd%% *}"; fi
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
52 if [[ -z "$f" ]]; then echo try: \`f command filename; elif [[ -e "$f" ]]; then "$cmd" "$(< "$f")"; else echo no such file: "$f"; fi
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
53 #!/hackenv/bin/shebang_args_or_input perl -p
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
54 s/([aeiouy])([bcdfghjklmnpqrstvxz])/$1h$2/ig
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
55 line="${1-$(cat /hackenv/tmp/spline)}"; len="$(wc -l /hackenv/tmp/spout | awk '{print $1}')"; echo -n "$line/$len:"; sed -n "${line}{p;q}" /hackenv/tmp/spout; echo "$((line<len?line+1:1))" > /hackenv/tmp/spline
fe5ca19b3dca <lezsakdomi> ` cat $(which ?) | paste
HackBot
parents:
diff changeset
56 wisdom "$@"