Задача: написать программу на любом известном вам языке программирования, с наименьшим количеством строчек, которая бы выводила в терминал содержимое файла в обратном порядке(в смысле последняя строка -> первая итп).
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
/* This is REXX script */
call SysFileSearch '', 'filename.txt', 'a.'
do i=a.0 to 1 by -1
say a.i
end
Yesterday it worked.
Today it is not working.
Windows is like that.
Неактивен
Майор Очевидность, не, давай без халтурства Нормальный вид кода, а не в одну строку через разделители типа ";" итп.
Добавлено спустя 01 мин 08 с:
ikkunan salvataja, ухты (= Что такое рекс?)
Кто короче может?
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
#!/usr/bin/ruby -Ku
puts File.open(file).to_a.reverse
Неактивен
(= Что такое рекс?)
Да было такое на МежДелМашевских мэйнфреймах. После оттуда в OS/2 перекочевало в качестве стандартного коммандного интерпертатора. Под линукс тоже есть, правда в сравнении с OS/2 в покоцаном виде, т.е. без расширений REXX utils, а первая строка в скрипте именно их использует. Называется Regina. Вообще то оператор используется для поиска совпадений в строке. Первый операнд искомая подстрока, второй источник, третий массив переменных, где результат будет храниться. В a.0 будет количество строк, в которых данная подстрока найдена, ну в данном случае всех. Дальше думаю понятно.
Yesterday it worked.
Today it is not working.
Windows is like that.
Неактивен
petrun, это три строки?
Добавлено спустя 03 мин 33 с:
ikkunan salvataja, спасибо, интересно
Babusha, nice
Добавлено спустя 04 мин 36 с:
Собсно мой вариант:
#!/usr/bin/perl -w
print reverse <STDIN>;
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
petrun, объясни "как оно работает"
Читерить и использовать встроенный "reverse" нехорошо ж)
Зато практично Интересно, что вендовые коллеги нам покажут?)
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
Читерить и использовать встроенный "reverse" нехорошо ж)
Ну значит придется подумать над алгоритмом переворачивания массива.
Неактивен
Наверное, можно короче, но первое что пришло в голову это:
На руби мне больше нравится.
Редактировался Babusha (15-02-11 22:42:11)
Неактивен
Зато практично
если всё свелось к "reverse", то причём тут сообразительность?
Windows == УМВР
Неактивен
Babusha пишет:На руби мне больше нравится.
Для руби нужно что-то доставлять в винду, а PS уже «искаропки», да ещё и с IDE.
Ты кроме win7 какие-нибудь винды еще знаешь?
PS. только в win7 «искаропки», а в остальных его надо качнуть и больше чем для рубироида.
Неактивен
iUser пишет:Или возраст не позволяет?
этим Вы нарушаете сразу два правила форума:
1. обсуждение личности участников
2. «наезд» на модераторапоскольку Вы у нас здесь новенький, предупреждение, на первый раз, выносить не буду.
но надеюсь, что впредь Вы будете не только троллить, но и вести адекватную дискуссию.
Понял, исправлюсь.
===
По сабжу: не претендуя на лавры мегапрограммиста:
sort -r file
Обычная unix-консоль, на маке так, думаю и в линуксе тоже.
Редактировался iUser (16-02-11 05:38:02)
Неактивен
petrun, "В рот мне ноги, Девид Блейн!" класс, где таким трюкам научиться?
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
petrun, "В рот мне ноги, Девид Блейн!" класс, где таким трюкам научиться?
UNIX — универсальная среда программирования
В книге про sed и awk отдельные главы с детальным объяснением.
Редактировался iUser (16-02-11 07:12:54)
Неактивен
Для XP, например, это 5,9 мег.
+ Фреймворк
Забейте спорить. Я о конкретно нативных виндовых инструментах спрашивал, включая ВБ и Делфи.
Добавлено спустя 21 с:
iUser, спасибо, почитаю.
Интеллигент боится лишь одного — касаться темы зла и его корней, потому что справедливо полагает, что здесь его могут сразу выeбaть телеграфным столбом.©
Неактивен
#!/usr/bin/perl -w
print reverse <STDIN>;
Так лучше.
#!/usr/bin/perl
print reverse <>;
Корпорация Lightman group: Герцог, оптимизация графа, формальная логика, ЦОД и многое другое.
Неактивен