Вопрос на сообразительность

Lord_Evil · 15-02-11 20:31:54

Задача: написать программу на любом известном вам языке программирования, с наименьшим количеством строчек, которая бы выводила в терминал содержимое файла в обратном порядке(в смысле последняя строка -> первая итп).

Майор Очевидность · 15-02-11 20:45:54

Lord_Evil,
а если я напишу, скажем, на Ассемблере (ну, может, не совсем я, хехе, просто лабу такую проводил), а потом уберу переносы между строками, это будет считаться? smile

ikkunan salvataja · 15-02-11 20:50:25

/* This is REXX script */
call SysFileSearch '', 'filename.txt', 'a.'
do i=a.0 to 1 by -1
say a.i
end

Lord_Evil · 15-02-11 20:51:28

Майор Очевидность, не, давай без халтурства smile Нормальный вид кода, а не в одну строку через разделители типа ";" итп.

Добавлено спустя 01 мин 08 с:
ikkunan salvataja, ухты (= Что такое рекс?)
Кто короче может?

petrun · 15-02-11 21:01:34

sed -nr '1!G;h;$p'

Даже так

sed '1!G;h;$!d'

Отредактировано petrun (15-02-11 21:05:01)

Babusha · 15-02-11 21:06:19

#!/usr/bin/ruby -Ku
puts File.open(file).to_a.reverse

ikkunan salvataja · 15-02-11 21:07:46

Lord_Evil пишет:

(= Что такое рекс?)

Да было такое на МежДелМашевских мэйнфреймах. После оттуда в OS/2 перекочевало в качестве стандартного коммандного интерпертатора. Под линукс тоже есть, правда в сравнении с OS/2 в покоцаном виде, т.е. без расширений REXX utils, а первая строка в скрипте именно их использует. Называется Regina. Вообще то оператор используется для поиска совпадений в строке. Первый операнд искомая подстрока, второй источник, третий массив переменных, где результат будет храниться. В a.0 будет количество строк, в которых данная подстрока найдена, ну в данном случае всех. Дальше думаю понятно.

Lord_Evil · 15-02-11 21:08:50

petrun, это три строки?

Добавлено спустя 03 мин 33 с:
ikkunan salvataja, спасибо, интересно smile
Babusha, nice wink

Добавлено спустя 04 мин 36 с:
Собсно мой вариант:

#!/usr/bin/perl -w
print reverse <STDIN>;

petrun · 15-02-11 21:16:16

Lord_Evil пишет:

это три строки?

Не думаю, что понятие "строка программы" тут ввобще применимо. Каждый "адрес-комманда" отделяется.

Добавлено спустя 01 мин 20 с:
Lord_Evil
Babusha
Читерить и использовать встроенный "reverse" нехорошо ж)

Lord_Evil · 15-02-11 21:20:27

petrun, объясни "как оно работает" smile

petrun пишет:

Читерить и использовать встроенный "reverse" нехорошо ж)

Зато практично big_smile Интересно, что вендовые коллеги нам покажут?)

Babusha · 15-02-11 21:26:36

Читерить и использовать встроенный "reverse" нехорошо ж)

Ну значит придется подумать над алгоритмом переворачивания массива. smile

petrun · 15-02-11 21:35:46

Lord_Evil
Sed тупо применяет список команд к каждой строке файла.
1!G - ко всем строкам кроме первой добавить содержимое буфера (hold space)
h - заменить содержимое hold space на содежимое области обработки (pattern space)
$!d - удалить (не выводить на печать) все строки, кроме последней, в которой образуется нужный нам список, разделенный \n.

Svart Testare · 15-02-11 21:36:01

Lord_Evil пишет:

Зато практично Интересно, что вендовые коллеги нам покажут?)

Наверное, можно короче, но первое что пришло в голову это:

$a = (Get-Content testfile.txt)
[array]::Reverse($a)
$a

Babusha · 15-02-11 21:41:30

Наверное, можно короче, но первое что пришло в голову это:

На руби мне больше нравится. smile

Отредактировано Babusha (15-02-11 21:42:11)

Svart Testare · 15-02-11 21:42:52

Babusha пишет:

На руби мне больше нравится.

Для руби нужно что-то доставлять в винду, а PS уже «искаропки», да ещё и с IDE.

shell32 · 16-02-11 01:51:59

Lord_Evil пишет:

Зато практично

если всё свелось к "reverse", то причём тут сообразительность?

Майор Очевидность · 16-02-11 02:24:32

shell32 пишет:

причём тут сообразительность?

возможно, завтра покажу smile
я в качестве языка избрал х86-й ассемблер.
поскольку по количеству строк ни с одним из высокоуровневых языков asm сравниться не может, акцент будет сделан на количество байт в результирующем бинарнике.
ОСью нам послужит Linux 32bit (чтобы протестировать могли и те, у кого до сих пор нет 64-разрядной машины).

промежуточный результат:
представляю вашему вниманию полноценный с точки зрения Linux ELF-файл, в собранном виде занимающий 127 байт, выводящий первые 4096 байт файла «filename.txt» из рабочего каталога:

BITS 32;
ORG 00400000h;    <-- далее, "$$"

@ehdr:             ; Elf32_Ehdr
  DB 7Fh, "ELF";       e_ident
  DB 1, 1, 1, 0;

@main:
  STD;
  MOV EBX, @name;
  JMP @code;

  DW 2;                e_type
  DW 3;                e_machine
  DD 1;                e_version
  DD @main;            e_entry
  DD @phdr - $$;       e_phoff
  DD 0;                e_shoff
  DD 0;                e_flags
  DW @ehsz;            e_ehsize
  DW @phsz;            e_phentsize

@phdr:                             ; Elf32_Phdr
  DD 1;                e_phnum         p_type
      ;                e_shentsize
  DD 0;                e_shnum         p_offset
      ;                e_shstrndx
  DD $$;                               p_vaddr
  DD $$;                               p_paddr
  DD @fisz+@dasz;                      p_filesz
  DD @fisz+@dasz;                      p_memsz
  DD 7;                                p_flags
  DD 1000h;                            p_align

@code:
  XOR ECX, ECX;
  LEA EAX, [ECX+5];
  INT 80h;        <-- SYS_OPEN

  MOV EBX, EAX;
  LEA EAX, [ECX+3];
  MOV EDX, @dasz;
  MOV ECX, @data;
  INT 80h;        <-- SYS_READ

  MOV EDX, EAX;
  XOR EBX, EBX;
  LEA EAX, [EBX+4];
  INT 80h;        <-- SYS_WRITE

  LEA EAX, [EBX+1];
  INT 80h;        <-- SYS_EXIT

; <-- здесь будут константы:
  @ehsz equ $ - @ehdr;
  @phsz equ $ - @phdr;
  @dasz equ 1000h;
  @name: DB "filename.txt", 0;
; <-- константы закончились

@data:
  @fisz equ $ - $$;

компилировать так:

#!/bin/bash
rm ELF
yasm -f bin -o ELF ELF.asm
chmod a+x ELF

здесь были использованы некоторые трюки, чью общую идею мне подсказала одна стародавняя статья про уменьшение размера ELF, как, например, построение заголовка вручную, использование под код не читаемых системой участков, частичное перекрытие сегментов, а также «ручное» распределение областей памяти (так, в приведённой программе, сегмент стека отсутствует как класс, и ESP становится обычным регистром общего назначения, а кодовый сегмент одновременно является буфером для данных из файла; тому, кто сумеет написать для данной версии эксплоит, выдам медальку big_smile ).
полезные ссылки: описание формата ELF.

завтра, скорее всего, допишу то, что требуется в ОП-посте.

[UPD:] feel the zen.

iUser · 16-02-11 03:26:53

Svart Testare пишет:

Babusha пишет:
На руби мне больше нравится.
Для руби нужно что-то доставлять в винду, а PS уже «искаропки», да ещё и с IDE.

big_smile Ты кроме win7 какие-нибудь винды еще знаешь?
PS. только в win7 «искаропки», а в остальных его надо качнуть и больше чем для рубироида.

Майор Очевидность · 16-02-11 03:45:25

iUser пишет:

Или возраст не позволяет?

этим Вы нарушаете сразу два правила форума:
1. обсуждение личности участников
2. «наезд» на модератора

поскольку Вы у нас здесь новенький, предупреждение, на первый раз, выносить не буду.
но надеюсь, что впредь Вы будете не только троллить, но и вести адекватную дискуссию.

iUser · 16-02-11 04:13:07

Майор Очевидность пишет:

iUser пишет:
Или возраст не позволяет?
этим Вы нарушаете сразу два правила форума:
1. обсуждение личности участников
2. «наезд» на модератора
поскольку Вы у нас здесь новенький, предупреждение, на первый раз, выносить не буду.
но надеюсь, что впредь Вы будете не только троллить, но и вести адекватную дискуссию.

Понял, исправлюсь.

===

По сабжу: не претендуя на лавры мегапрограммиста:

sort -r file

Обычная unix-консоль, на маке так, думаю и в линуксе тоже.

Отредактировано iUser (16-02-11 04:38:02)

Lord_Evil · 16-02-11 05:23:33

petrun, "В рот мне ноги, Девид Блейн!" класс, где таким трюкам научиться?

iUser · 16-02-11 06:10:38

Lord_Evil пишет:

petrun, "В рот мне ноги, Девид Блейн!" класс, где таким трюкам научиться?

UNIX — универсальная среда программирования
В книге про sed и awk отдельные главы с детальным объяснением.

Отредактировано iUser (16-02-11 06:12:54)

Svart Testare · 16-02-11 08:28:52

iUser пишет:

а в остальных его надо качнуть и больше чем для рубироида

Для XP, например, это 5,9 мег. А Ruby как минимум 10. Так шо нинада ляля.

Lord_Evil · 16-02-11 08:35:39

Svart Testare пишет:

Для XP, например, это 5,9 мег.

+ Фреймворк smile
Забейте спорить. Я о конкретно нативных виндовых инструментах спрашивал, включая ВБ и Делфи.

Добавлено спустя 21 с:
iUser, спасибо, почитаю.

Keeper · 16-02-11 09:35:34

#!/usr/bin/perl -w
print reverse <STDIN>;

Так лучше.

#!/usr/bin/perl 
print reverse <>;

Форум StopLinux

Объявление

#1 15-02-11 20:31:54

Вопрос на сообразительность

#2 15-02-11 20:45:54

Re: Вопрос на сообразительность

#3 15-02-11 20:50:25

Re: Вопрос на сообразительность

#4 15-02-11 20:51:28

Re: Вопрос на сообразительность

#5 15-02-11 21:01:34

Re: Вопрос на сообразительность

#6 15-02-11 21:06:19

Re: Вопрос на сообразительность

#7 15-02-11 21:07:46

Re: Вопрос на сообразительность

#8 15-02-11 21:08:50

Re: Вопрос на сообразительность

#9 15-02-11 21:16:16

Re: Вопрос на сообразительность

#10 15-02-11 21:20:27

Re: Вопрос на сообразительность

#11 15-02-11 21:26:36

Re: Вопрос на сообразительность

#12 15-02-11 21:35:46

Re: Вопрос на сообразительность

#13 15-02-11 21:36:01

Re: Вопрос на сообразительность

#14 15-02-11 21:41:30

Re: Вопрос на сообразительность

#15 15-02-11 21:42:52

Re: Вопрос на сообразительность

#16 16-02-11 01:51:59

Re: Вопрос на сообразительность

#17 16-02-11 02:24:32

Re: Вопрос на сообразительность

#18 16-02-11 03:26:53

Re: Вопрос на сообразительность

#19 16-02-11 03:45:25

Re: Вопрос на сообразительность

#20 16-02-11 04:13:07

Re: Вопрос на сообразительность

#21 16-02-11 05:23:33

Re: Вопрос на сообразительность

#22 16-02-11 06:10:38

Re: Вопрос на сообразительность

#23 16-02-11 08:28:52

Re: Вопрос на сообразительность

#24 16-02-11 08:35:39

Re: Вопрос на сообразительность

#25 16-02-11 09:35:34

Re: Вопрос на сообразительность

Подвал форума