SZ
Ууу, надо починить бота!
perl -e '... ; my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$_\n$_-" if $v; $v = $_ + 1; } else { $v++ }}' думаю, так, с мобилы не проверить...Size: a a a
2020 April 27
АР
Не правильно работает!
SZ
@PerlBanjoBot my @dig = qw( 5 6 7 8 11 15 21 22 23); my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$v\n$_-" if $v; $v = $_ + 1; } else { $v++ }} print "$v\n"
P
@PerlBanjoBot my @dig = qw( 5 6 7 8 11 15 21 22 23); my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$v\n$_-" if $v; $v = $_ + 1; } else { $v++ }} print "$v\n"
SZ
Не правильно работает!
Смотри выше :)
АР
Смотри выше :)
Спасибо!
AT
А что там за фигня с 23 и 24?
SZ
@bessarabov смотри (пару сообщений выше), как бот реагирует на perl -e, так и задумано?
SZ
А что там за фигня с 23 и 24?
Это не фигня, автор так хочет
AT
А если последний элемент один в цепочке (довавим @dig 30) - то последняя строчка должна быть 30-31 что-ли?
SZ
А если последний элемент один в цепочке (довавим @dig 30) - то последняя строчка должна быть 30-31 что-ли?
Да
SZ
Так же, как и с 15
SZ
Он там один, а выводиться по заданию должно 15-16
SZ
Ну автор так хочет :)
AT
Ой, не обратил внимания. Странная херня )
AT
Питоном пованивает
IB
@bessarabov смотри (пару сообщений выше), как бот реагирует на perl -e, так и задумано?
Если ты об этом, то тут потерялся символ
$. Если команда боту начинается с символа $, то это выполнятеся как однострочник, если не начинается (как в этом случае), то все что передано боту запихвивается в код скрипта, который выполняется.
SZ
Если ты об этом, то тут потерялся символ
$. Если команда боту начинается с символа $, то это выполнятеся как однострочник, если не начинается (как в этом случае), то все что передано боту запихвивается в код скрипта, который выполняется.Понял, спасибо!