Mercurial > repo
view paste/paste.21704 @ 11682:2043383212aa draft
<oerjan> rm bin/walcama
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 30 Dec 2018 00:25:52 +0000 |
parents | fe5ca19b3dca |
children |
line wrap: on
line source
#!/bin/bash TIMEFORMAT="real: %lR, user: %lU, sys: %lS" shopt -s extglob globstar eval -- "$1" | rnooodl echo hi exec #!/bin/sh CMD=`echo "$1" | cut -d' ' -f1` ARG=`echo "$1" | cut -d' ' -f2-` exec ibin/$CMD "$ARG"#!/bin/bash topic=$(echo "$1" | lowercase | sed "s/noo\+dl/nooodl/;s/ *$//") topic1=$(echo "$topic" | sed "s/s$//") cd wisdom if [ \( "_$topic1"_ = "_ngevd"_ \) -a \( -e ngevd \) ]; then cat /dev/urandom; elif [ -e "$topic" ]; then cat "$topic"; elif [ -e "$topic1" ]; then cat "$topic1"; else echo "$1? ¯\(°_o)/¯"; exit 1; fi | rnooodl ? "$@" | rev | tac #!/bin/sh allquotes | if [ "$1" ]; then if expr "$1" + 0 >/dev/null 2>&1; then sed "$1q;d" else grep -P -i -- "$1" fi else shuf --random-source=/dev/urandom -n 1; fi quote; quote #!/bin/bash TIMEFORMAT="real: %lR, user: %lU, sys: %lS" shopt -s extglob globstar rm canary; eval -- "$1" | rnooodl #!/usr/bin/perl -w $_ = join " ", @ARGV; if (s/^([^ ]*) +([^ ]*) +//) { print "$1: "; exec $2, $_; } echo $(ls bin | shuf -n 1) $* ? "$@" | rev #!/bin/bash TIMEFORMAT="real: %lR, user: %lU, sys: %lS" shopt -s extglob globstar eval -- "$1" | rnooodl \` "$@" |& sport \` "$@" |& sport '' 2 cmd="${1-quote}"; for i in {1..5}; do \` "$cmd"; done | sport #! /bin/bash cmd="$1" shift f="$*" if [[ -z "$f" && "$cmd" == *\ * ]]; then f="${cmd#* }"; cmd="${cmd%% *}"; fi if [[ -z "$f" ]]; then echo try: \`f command filename; elif [[ -e "$f" ]]; then "$cmd" "$(< "$f")"; else echo no such file: "$f"; fi #!/hackenv/bin/shebang_args_or_input perl -p s/([aeiouy])([bcdfghjklmnpqrstvxz])/$1h$2/ig 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 wisdom "$@"