Напишите программу, которая анализирует выходные данные uptimeи генерирует анатомически предположительный индикатор выполнения (как показано) с длиной, равной текущему времени безотказной работы в днях:

$ uptime
23:01  up 34 days,  7:30, 5 users, load averages: 0.23 0.27 0.24
$ uptime|<command>
8==================================D

(34 дня = 34 знака равенства)

Кратчайший ответ выигрывает.

Руби, 39

Не требуется ввод (обстрел):

`w`=~/up (\d*)/;puts '8'+'='*$1.to_i+'D'

Или из стандартного ввода (40 символов):

gets=~/up (\d*)/;puts '8'+'='*$1.to_i+'D'

Баш, 71 символов

a=`uptime` a=${a#*p } a=${a%% *};while((a--));do p==$p;done;echo I${p}I

Я не так сильно выставляю свои генераторных uptimes в Интернете, поэтому я рисую забор вместо этого. Это то же количество символов. Подумайте о сбросе pмежду вызовами.

Pure Bash, 71 символов, включая uptime .

$ uptime
 23:35:12 up 159 days,  4:15, 15 users,  load average: 1.07, 0.63, 0.38

Ну, хорошо, хорошо ... мой больше, чем твой.

Perl - 26 24 символа

/p (\d+)/;say+8,"="x$1,D

Побежал так:

$ uptime
 04:52:39 up 17 days, 11:27,  3 users,  load average: 0.21, 0.07, 0.02
$ uptime | perl -nE '/p (\d+)/;say+8,"="x$1,D'
8=================D

редактировать : без кавычек финал 'D' - спасибо JB

Haskell, 88 символов

Как это часто бывает, Haskell не предлагает наиболее экстремальных возможностей игры в гольф из некоторых других языков, но допускает элегантное выражение математических структур, лежащих в основе проблемы. Опираясь на их основополагающую работу в этой области, я намерен представить реализацию Haskell оператора Приближения Холкинса-Крахулика . Вкратце, оператор игнорирует оба своих ввода и возвращает функцию печати фаллосом, параметризованную длиной вала.

_⁑≈≈≈⊃_=(\n->concat["8",take n$repeat '=',"D"])
main=interact$(0⁑≈≈≈⊃1).read.(!!2).words

Perl, 17 символов
Теперь скажем:

say+8,"="x$F[2],D

Урожайность

uptime | perl -naE 'say+8,"="x$F[2],D'

было:

print"8"."="x$F[2]."D"

Урожайность

]# uptime | perl -anle 'print"8"."="x$F[2]."D"'
8=========================D

(Я не могу "сказать", к сожалению)

57 символов

python -c "print'8'+'='*int(raw_input().split()[2])+'D'"

35 персонажей

awk '{printf"#%"$3"sp",p}'|tr \  \*

так,

uptime
12:27μμ  up 111 days,  2:36, 1 user, load averages: 0,07 0,03 0,00
uptime | awk '{printf"#%"$3"sp",p}'|tr ' ' '*'

#***************************************************************************************************************p

Изменить : было

printf "#%`awk '{print $3}'`sp"|tr ' ' '*'

Редактировать 2 : комментарий JB (используйте \вместо '')

Windows PowerShell, 28

"8$('='*(-split$input)[2])D"

По крайней мере

echo 23:01  up 34 days,  7:30, 5 users, load averages: 0.23 0.27 0.24|powershell -file uptime.ps1 

дает правильный вывод, поэтому он должен иметь возможность обрабатывать uptimeвывод. Однако я не могу протестировать, поскольку в GNUWin32 входит сломанный uptimeфайл, который пытается прочитать из несуществующего файла (Примечание для людей, портирующих инструменты Unix: не пытайтесь предположить, что Windows является Unix и придерживается тех же принципов или соглашений; нет файла, содержащего время загрузки в Windows).

Common Lisp, 84 персонажа

(defun p(s)(write 8)(loop repeat(read-from-string(subseq s 9))do(write'=))(write'D))

Это принимает строку uptime в качестве входных данных. Кажется, что должно быть более короткое решение, отображающее # ', пишите по списку, но если это так, я не могу придумать его.

GolfScript (24 символа)

' '/{(;}3*(\;~'='*8\'D'

Haskell (73 символа)

main=getLine>>=putStr.('8':).(++"D").(`take`repeat '=').read.(!!2).words

C (131 символ)

#define r(a);read(0,x,a),
#define p ;putchar(
x[9];main(i){for(r(1)i<3;i+=*x==32)r(9)0
p'8');for(i=atoi((int)x+2);i--p'='))p'D');}

PHP, 62 символа

<?$d=split(" ",`uptime`);echo 8;while($d[3]--)echo"=";echo"D";

Вход не требуется, он выкладывается.

Python (42)

print('8'+int(input().split()[2])*"="+'D')

Примечание: Python 3 используется для уменьшения общего количества символов.

Python, 65 байт

import sys
print '8'+'='*int(sys.stdin.readline().split()[2])+'D'

тестовое задание:

echo '23:01  up 34 days,  7:30, 5 users, load averages: 0.23 0.27 0.24'|./time.py
8==================================D

PHP, 61

<?$n=split(' ',$argv[1]);$v=8;while($n[2]--)$v.'=';echo"$vD";

Common Lisp, 57 символов

(исключая реализацию / специфичный для ОС шебанг)

#!/opt/local/bin/sbcl --script
(do()((eql(read-char)#\p)(format t"8~v,,,'=<~>D"(read))))

На основании попытки удовлетворить ответ доктора Пэйна на более короткий путь написания повторяющегося символа. Этот можно использовать в конвейере, как показано в вопросе.

(Строка формата указывает выравнивание по правому краю пустой строки (между ~<и ~>) в поле ширины, заданном аргументом, дополненном =символом.)

К, 35

-1"8",(("I"$(" "\:0:0)@3)#"="),"D";

,

$ uptime
17:21:47 up 242 days,  7:22, 35 users,  load average: 0.33, 0.34, 0.44
$ uptime | q t.k
8============================================================================ ...

Баш 67 символов

read t u d w
echo -e '\t'|expand -t $d|sed 's/^/8/;s/ /=/g;s/$/B/;'

Призыв к письму о назначении:

uptime | ./cg1570uptime-bar.sh

Намного короче

всего 54 символа:

с этим вариантом:

echo -e '\t'|expand -t $3|sed 's/^/8/;s/ /=/g;s/$/B/;'

вызов, не 100% в соответствии с правилами:

./cg1570uptime-bar.sh $(uptime)

вывод в оба раза:

uptime && uptime | ./cg1570uptime-bar.sh 
06:29:53 up 16 days, 21:03, 10 users,  load average: 1.29, 1.34, 1.23
8================B

Не повседневные трюки:

 read t u d w

читает 06: 29: 53 = t, up = u, 16 = d rest ... = w
без w, все до конца будет помещено в $ d.

Расширение обычно используется для перевода табуляции в количество пробелов и принимает параметр, если вам не нравится 8.

Захват 3-го параметра с $ 3 echo -e '\t'|expand -t $3|sed 's/ /=/g'еще короче, но требует вызова, не подходящего под слова правил.

короткая версия bash / zenity 38, более длинная версия 68

read c o d e
zenity --scale --value=$d --max-value=497 --text=uptime

Короткая версия заканчивается после $ d, тем дольше учитывается, что мы знаем максимальное значение и хотели бы получить полезный текст:

Гема , 24 персонажа

<D> d=8@repeat{$1;=}D;?=

Образец прогона:

bash-4.4$ uptime
 18:35:31 up 13 days,  7:53, 16 users,  load average: 0.31, 0.85, 1.24

bash-4.4$ uptime | gema '<D> d=8@repeat{$1;=}D;?='
8=============D

AutoHotkey , 39 байт

d:=A_TickCount//=8.64e+7
Send 8{= %d%}D

Нет ввода. Результат отправляется в активное окно.
Встроенная A_TickCount- это количество миллисекунд с момента перезагрузки компьютера.