blv 6 фев 2008 в 12:54

К вопросу об интроспективных программах

1 мин

1.5K

Ненормальное программирование*

+27

Комментарии 30

tipok 6 фев 2008 в 13:29

Так, ради смеха: http://lurkmore.ru/Haskell

amrok 6 фев 2008 в 19:26

Хаскель сделал "Hello world" доступным только математикам!

ZLoykif 6 фев 2008 в 13:32

Гиковское письмо счастья?)
ПС: Что то у тебя строчка длинная получилась. [code]тест[/code]

blv 6 фев 2008 в 21:36

Не решился строчку кропсать - там все байт в байт выводиться :)

ptiss 6 фев 2008 в 13:41

самая короткая, имхо, на баше.
#!/bin/sh
cat $0

dime 6 фев 2008 в 15:55

Самая короткая на одном из диалектов бейсика:
10 LIST
на чуть более продвинутом - без метки:
LIST

ptiss 6 фев 2008 в 16:51

можно ещё опустить указание интерпритатора:
cat $0
и вызывать как sh script.sh

efix 6 фев 2008 в 19:43

можно еще короче:
(в консоли)
$ сat
и программа выводится прямо во время написания! :)

katremer 6 фев 2008 в 20:50

Самая короткая на HQ9+:

Q

katremer 6 фев 2008 в 20:51

Ну и на PHP самый короткий, но неинтересный: пустой файл.

nixmale 4 мая 2011 в 17:14

Недооцениваете вы php…

<?php

 function a($b)

 {

 return str_replace("'", "\'", str_replace("\\", "\\\\", $b));

 }

 $e = '; echo $h . $f . a($h) . $f . $e; ?>';

 $f = "'";

 $g = "\\";

 $h = '<?php

 function a($b)

 {

 return str_replace("\'", "\\\'", str_replace("\\\\", "\\\\\\\\", $b));

 }

 $e = \'; echo $h . $f . a($h) . $f . $e; ?>\';

 $f = "\'";

 $g = "\\\\";

 $h = '; echo $h . $f . a($h) . $f . $e; ?>

ptiss 7 фев 2008 в 06:09

а этот язык и был для того придуман. по крайней мере печать своего исходника - одна из немногих базовых операций в нём. это эзотерика.

katremer 9 фев 2008 в 13:53

Мне CakePHP всё время напоминает HT9+ - тоже язык, заточенный под задачу:

$this->C();
$this->R();
$this->U();
$this->D();

:)

CPWIman 6 фев 2008 в 16:53

И в чём понт?

-9

Jan_May 6 фев 2008 в 20:29

Ты Кнута уже дочитал? Тогда попробуй повторить )

У меня, помнится, на С получился монстрег строк в 50, с кучей переподвыподвертов. Единственное, почему меня не покарал на месте дух Страуструпа - маленький ещё был. Но экспириенс получил незабываемый...

micle 6 фев 2008 в 20:44

Это порождение мега-мозга или машины? Просто возможно ли такое... Я в шоке :)

katremer 6 фев 2008 в 20:54

Есть такой язык Malbolge, так на нем первую программу смогли написать только через два года после появления языка. Говорят, лучший способ программить на нем - делать генератор случайных программ. Тем не менее, один мистик написал программу, которая выводит тест "99 бутылок" (99 bottles of beer on the wall...). Но никому не говорит, как.

micle 6 фев 2008 в 20:58

О Господи... А смысл? Головоломка на подобие Brainfuck'а?

katremer 6 фев 2008 в 21:05

Аха-ха. Кстати, с брейнфаком у меня лично не сложилось потому, что он был вещью в себе, с внешними устройствами и файлами не связывался, и писать что-либо было неинтересно :)

micle 6 фев 2008 в 21:13

А моя связь с ним окончилась по написании программы, выводящей числовую последовательность от 1 до 9 и обратно :)

Pilot34 6 фев 2008 в 22:06

а как выглядит пример такой программы на каком-нибудь вменяемом языке?

karabatov 7 фев 2008 в 00:41

на вменяемом такое писать, видимо, неинтересно — нет интриги :)

mas 7 фев 2008 в 01:03

Волшебное слово - Quine.

Pilot34 7 фев 2008 в 14:39

угу... спасиб

main(){char*s="#include %cmain(){char*s=%c%s%c;cout.form(s,10,34,s,34,10);}%c";cout.form(s,10,34,s,34,10);}

жесть..

blv 7 фев 2008 в 01:04

Haskell язык достаточно вменяемый, а Python и Ruby уже фактически мейнстрим.

Karbas 7 фев 2008 в 01:07

Хабраформатирование коментов мешает мне вставить непосредственно сюда эту красоту, так что - смотрите в первоисточник -
Spiraling Quine
Запускать обязательно!

Tishka17 8 фев 2008 в 12:46

не могу насладиться красотой картины. все просто просто мерцает. Где добыть медленный проц для тестов?

Karbas 8 фев 2008 в 12:49

Вопрос существенный, я попробую узнать =)

deepone 8 фев 2008 в 14:13

Молодца, оперативно узнал =)

deepone 8 фев 2008 в 13:05

Ну Если аккуратно добавить sleep(1) в код - то конечно замедлится, но потеряется спиральность.
Я придумал более странный способ:
/etc/rc.d/powerd stop
sysctl dev.cpu.0.freq=100
и компьютер превращается в калькулятор.

Зарегистрируйтесь на Хабре, чтобы оставить комментарий

Показать лучшие за всё время

К вопросу об интроспективных программах

Комментарии 30

Публикации

Истории