Умнее ли вы хоть кого-нибудь?

рваный

очень рваный

видел даже на паскале

может лучше чего-нить полезное сделаем? (знаю-знаю, это _необычное_ предложение)

Не все бейсики поддерживали команду LIST в режиме интерпретации.

>может лучше чего-нить полезное сделаем? (знаю-знаю, это _необычное_ предложение)

wiki

http://ru.wikipedia.org/wiki/Куайн_(программирование)

>может лучше чего-нить полезное сделаем?

Ну давай. Ты фотошоп под линукс на выходных набросаешь, я автокад и солидворкс.

Лучше написать программу, которая распечатывает исходный код другой программы, например, iexplore.exe

> Лучше написать программу, которая распечатывает исходный код другой программы, например, iexplore.exe

Чисто чтоб поржать?

А вторая выводит исходники первой. Вот и родилась новая олимпиадная задачка!

Баян годов этак 60х-70х... Андрей, вы немного отстали от жизни ;)

Обязательное условие: программы не одинаковые.

>Обязательное условие: программы не одинаковые.

Произвольные.

Ну так кто напишет программу, которая будет распечатывать исходники Виндовса?

Не произвольные, а выводящие текст друг друга.

на коммандном интерпретаторе windows:

----------1.bat begin-------------
set 1-1
-------------end------------------

на перле:
----------1.pl begin-------------
system("cat 1.pl");
-------------end------------------

На интерпретируемых это вообще очень просто...

Так происходит чтение файла 1.pl Это уже неитересно Насколько я понял имелось ввиду чтобы программа САМА выводила код другой

Lisp:

====== начало программы ======
T
===== конец программы =======

Есть дзен-вариант: Просто создать пустой файл. Эта программа не содержит кода, и, соответственно, ничего не выводит. Работает для любого интерпритируемого языка.

Вообще помучайте гугль по запросу self print programs, эта тема поднималась сто лет назад, - вот например http://cybertiggyr.com/gene/aaa/#SECTION000110000000000000000

http://habrahabr.ru/blog/crazydev/35371.html

Но пустой файл не подходит под определение программы, ибо не является набором инструкций. И не надо тут меня лечить про пустые наборы, не надо.

>10 list

Это грязный хак. Использовать обращения к интерпретатору и трюки с ОС, как правило, запрещены правилами.

напишите лчше программу, которая из МакОС делает нормальную ФриБСД

>которая из МакОС делает нормальную ФриБСД

"нормальная ФриБСД" - это оксюморон

Ну это же чисто академическая задача.

Всех умных ты давно уже забанил, остались только мы - тупые.

На хабре совсем недавно был такой интересный куайн: программа на Haskell выводит код на Python, который выводит код на Ruby, который снова выводит код на Haskell.

А вот и ссылка:
http://habrahabr.ru/blog/crazydev/35371.html

вот это прикольней


#!/usr/bin/perl
$_='
         $q ="\                   47"; wh
        ile                           ($ ;=
      $z                +=              .5 ){
    %c=           $r=0;$/ ="";whi         le(2
   0+          $z>($;+=.05)){$c{int$       _+ 2
  6+         2*($              r+= .0       2) *
 s          in$                   ;}{1       -$_
+1         0+           int        $r*c       o s
$         ;}         =1for(0.       .1)        }$
t        =r         ever se;$        /.        =`
c        le        ar     `.         "         #!
/        usr       /bi             n/         pe
rl       \n\       $_ =$q        \n"          ;
fo        r$y        (1..20){$c{$_}          {
$ y       }? $         /.=chop$t            :
 ($/        . ="                          \4
 0")         for(0.                    .53)          ;
   $/.        ="\n"}pri            nt"$/$          q;
   s; ".         chr(9 2)."s;;g;eval\n           "}

';s;\s;;g;eval

http://mdeveloper.blogspot.com/2007/11/quine-wikipedia.html

а внизу там ссылочка интерестная

> "нормальная ФриБСД" - это оксюморон

а как оно должно звучать, что бы изменился смысл ?) "говнистый GNome" ?)

А на BrainFuck'е слабо ?

>А на BrainFuck'е слабо ?

>>+++++++>>++>>++++>>+++++++>>+>>++++>>+>>+++>>+>>+++++>>+>>++>>+
>>++++++>>++>>++++>>+++++++>>+>>+++++>>++>>+>>+>>++++>>+++++++>>+
>>+++++>>+>>+>>+>>++++>>+++++++>>+>>+++++>>++++++++++++++>>+>>+>>
++++>>+++++++>>+>>+++++>>++>>+>>+>>++++>>+++++++>>+>>+++++>>+++++
++++++++++++++++++++++++>>+>>+>>++++>>+++++++>>+>>+++++>>++>>+>>+
>>+++++>>+>>++++++>>+>>++>>+>>++++++>>+>>++>>+>>++++++>>+>>++>>+>
>++++++>>+>>++>>+>>++++++>>+>>++>>+>>++++++>>+>>++>>+>>++++++>>++
>>++++>>+++++++>>+>>+++++>>+++++++>>+>>+++++>>+>>+>>+>>++++>>+>>+
+>>+>>++++++>>+>>+++++>>+++++++>>+>>++++>>+>>+>>++>>+++++>>+>>+++
>>+>>++++>>+>>++>>+>>++++++>>+>>+++++>>+++++++++++++++++++>>++>>+
+>>+++>>++>>+>>++>>++++>>+++++++>>++>>+++++>>++++++++++>>+>>++>>+
+++>>+>>++>>+>>++++++>>++++++>>+>>+>>+++++>>+>>++++++>>++>>+++++>
>+++++++>>++>>++++>>+>>++++++[<<]>>[>++++++[-<<++++++++++>>]<<++.
.------------------->[-<.>>+<]>[-<+>]>]<<[-[-[-[-[-[-[>++>]<+++++
++++++++++++++++++++++++>]<++>]<++++++++++++++>]<+>]<++>]<<[->.<]<<]

попытался своять на С (компилить надо с флагом -g):

#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <string.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

#define OFFSET 0x10e2
#define BUFF_SIZE (size_t)256

int main(int argc, char** argv){

char* filename [BUFF_SIZE];
filename [0] = '\0';
char* dirname [BUFF_SIZE];
dirname [0] = '\0';

int self = open (argv [0], O_RDONLY);
lseek (self, OFFSET, SEEK_SET);
read (self, filename, BUFF_SIZE);
size_t filename_size = strlen ((const char*) filename);
lseek (self, OFFSET + filename_size + 1, SEEK_SET);
read (self, dirname, BUFF_SIZE);
size_t dirname_size = strlen ((const char*) dirname);

printf ("filename: %s\n", filename);
printf ("dirname: %s\n", dirname);

char* full_filename = (char*) malloc (filename_size + dirname_size + 2);
strncpy (full_filename, (const char*) dirname, dirname_size);
full_filename [dirname_size] = '/';
strncpy (full_filename + dirname_size + 1, (const char*) filename, filename_size);
full_filename [dirname_size + filename_size + 1] = '\0';

printf ("fullname: %s\n", full_filename);

int source = open (full_filename, O_RDONLY);
free (full_filename);

char* buff [BUFF_SIZE];
memset (buff, '\0', BUFF_SIZE);
while (read (source, buff, BUFF_SIZE)){
printf ("%s", buff);
memset (buff, '\0', BUFF_SIZE);
}

printf ("\n");

close (source);
close (self);

}

ps правда чтобы работало надо задать правильное смещение OFFSET %)

у меня курсач такой был .. на си. 
Но не помню. 

> Баян годов этак 60х-70х... Андрей, вы немного отстали от жизни ;)

Ничего ты не понимаешь, это же старое доброе олдскульное ретро. Из тех же времён, что драгс-унд-секис-удн-рокин-ролл.

>А на С? 




int main()
{
char a[] = "int main()%c{%cchar a[] = %c%s%c;%cprintf(a, 0x0A, 0x0A, 0x22, a, 0x22, 0x0A, 0x0A);%c}";
printf(a, 0x0A, 0x0A, 0x22, a, 0x22, 0x0A, 0x0A);
}

#include <stdio.h>
int main()
{
char a[] = "#include <stdio.h>%cint main()%c{%cchar a[] = %c%s%c;%cprintf(a, 0x0A, 0x0A, 0x0A, 0x22, a, 0x22, 0x0A, 0x0A);%c}";
printf(a, 0x0A, 0x0A, 0x0A, 0x22, a, 0x22, 0x0A, 0x0A);
}


чтоб компилятор вообще не матерился

Это баян 1938-го года. Называется Kleene's Second Recursion Theorem.