VPF::Интересная байка о языке Си - Форум программистов

Voldemar2004

Дата 1.5.2006, 16:38 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Цитата

Уж не знаю утка ли это или на самом деле, но это новость, если является правдой может сделать в мире IT резкий резонанс. (А мне это мысль приходила в голову, так как я изучал С++ после Турбо-паскаля)

Из всемирно известного информационного агенства News Service поступило сообщение, которое навсегда меняет лицо и сущность современного программирования. Из-за тайного соглашения между IBM, Microsoft и неназванных высокопоставленных лиц из News Service (недавно вышедших в отставку из за конфликтов в президентом фирмы), данная новость стала известна миру только 8 дней назад.

Создатели Cи и UNIX признают, что разыграли весь мир В заявлении, потрясшем весь компьютерный мир, Кен Томпсон, Деннис Ричи и Брайан Керниган признали, что операционная система UNIX и язык программирования Си, созданные ими -- тщательно спланированный первоапрельский розыгрыш, "продержавшийся" более 20 лет. Выступая на последнем Конгрессе разработчиков программного обеспечения для ОС ДЕМОС (UnixWorld Software Development Forum), Томпсон признал следующее:

"В 1969 году AT&T завершила работу над проектом операционной системы Multics (известная операционная система 60-х, см. прим.2) Брайан и я только что начали работу с ранней реализаций Паскаля, разработанной в лаборатории проф. Вирта в Швейцарии, и находились под впечатлением элегантности, простоты и мощи этого языка. Деннис как раз прочитал "Уставший от колец", веселую сатиру на знаменитую трилогию Толкина "Властелин колец" (*1*). Ради шутки мы решили написать пародии на среду Multics и Паскаль. Деннис и я отвечали за операционную среду. Глядя на Multics, мы спроектировали новую систему настолько сложной и запутанной, чтобы максимально "испортить жизнь" рядовым пользователям, назвали ее UNIX как пародию на Multics, добавив много других достаточно рискованных аналогий.

Затем Деннис и Брайан разработали по-настоящему извращенный диалект Паскаля, назвав его "A". Когда мы обнаружили, что другие действительно пытаются писать программы на A, мы быстро добавили еще парочку хитрых примочек, создав B, BCPL, и, наконец, Си. Мы остановились, добившись успешной компиляции следующего:

for(;P("\n"),R-;P("|"))for(e=C;e-;P("_"+(*u++/8)%2))P("| "+(*u/4)%2);

Мы не могли даже представить, что современные программисты будут пытаться использовать язык, допускающий подобный оператор! Мы даже собирались продать все это Советам, чтобы отбросить развитие их компьютерного дела на 20 лет назад (*2*). Представьте наше удивление, когда AT&T, а также другие американские корпорации начали пытаться использовать UNIX и Си! Более 20 лет ушло на то, чтобы приобрести достаточный опыт для создания хоть немного полезных приложений с использованием этой технологической пародии 60-х. Мы были поражены упорством и целеустремленностью (если не чувством здравого смысла) типичного программиста, использующего UNIX и/или Си. В любом случае,

Брайан, Деннис и я в течение последних лет работали исключительно на Паскале в среде Apple Macintosh и чувствуем себя по-настоящему виноватыми в том хаосе, путанице и действительно скверном программировании, причиной которых явилась наша неудачная шутка столько лет тому назад."

Большинство поставщиков версий UNIX и Си, включая AT&T, Microsoft, Hewlett-Packard, GTE, NCR, DEC, отказались комментировать это выступление. Borland International, ведущий производитель инструментальных средств для Паскаля и Си, включая популярные Турбо Паскаль, Турбо Си и Турбо Си++, заявил, что они давно подозревали это и будут продолжать улучшать свои разработки для Паскаля и прекратят дальнейшие усилия по развитию Си.

Официальный представитель IBM разразился безудержным хохотом и был вынужден отменить спешно собранную конференцию о судьбе RS6000 заявив, что `VM появится в ближайшее время`. В непонятом аудиторией кратком сообщении проф. Вирт, отец Паскаля, Модулы-2 и Оберона, сказал лишь, что некто P.T. Barnum был прав. Кстати, из обычно совершенно надежных источников стало известно, что подобное признание возможно скоро последуют от Вильяма Гейтса относительно MS-DOS и Windows. Не случайно, вышеупомянутый представитель IBM уже начал отрицать, что Виртуальная Машина (VM) является созданной для внутреннего употребления аналогичной шуткой, вырвавшейся наружу.

взято с http://mirea.org/lofiversion/index.php/t4000.html

--------------------

i_i
(';')
(V)

user posted image

Void

Дата 1.5.2006, 17:02 (ссылка)

(голосов:3)

Загрузка ...

λcat.lolcat

Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Боянище страшный, на форуме уже раз десять было. И, разумеется, фейк чистой воды.

--------------------

“Coming back to where you started is not the same as never leaving.” — Terry Pratchett

cozzzy

Дата 1.5.2006, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 29.4.2006
Где: Харьков

Полнейший бред от фанатов паскаля и делфи

e-moe

Дата 1.5.2006, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 3.8.2004
Где: Украина, Донецк

Цитата(Voldemar2004 @ 1.5.2006, 15:38

)

Мы остановились, добившись успешной компиляции следующего:
for(;P("\n"),R-;P("|"))for(e=C;e-;P("_"+(*u++/8)%2))P("| "+(*u/4)%2);

На Паскале возможны аналогичные "извращения"...
Как sources.ru возобновит работу покажу свои "чудеса" smile

doomik

Дата 1.5.2006, 23:14 (ссылка)

(голосов:2)

Загрузка ...

Одинокий волк

Профиль
Группа: Участник
Сообщений: 360
Регистрация: 25.10.2005
Где: #vingrad

Очень напоминает "левоё" интервью с Бьерном Страуструпом.

--------------------

"Единственный способ изучать новый язык программирования - писать на нем
программы."
- Brian Kernighan

Remember, st1ng3r
/server irc.ircline.ru /j #vingrad

chipset

Дата 1.5.2006, 23:18 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4071
Регистрация: 11.1.2003
Где: Seattle, US

БОЯН!

--------------------

Цитата(Jimi Hendrix)

Well, I stand up next to a mountain
And I chop it down with the edge of my hand

sergejzr

Дата 1.5.2006, 23:44 (ссылка)

(голосов:2)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Это быль, конечно же..

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Exception

Дата 2.5.2006, 00:14 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Кто бы сомневался smile

Ignat

Дата 3.5.2006, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Флудератор

Профиль
Группа: Экс. модератор
Сообщений: 4030
Регистрация: 19.4.2004
Где: غيليندزيك مدينة

Блин, я этот баян лет 10 назад сливал из фидо, тогда это уже был баян. Опять какой-то некрофил раскопал.

--------------------

Теперь при чем :P

4udo

Дата 3.5.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 13.4.2006
Где: Казахстан

Отлично - есть движняк..............
Баян ,зато какой!!!!!!!!!!

e-moe

Дата 7.5.2006, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 3.8.2004
Где: Украина, Донецк

Цитата(e-moe @ 1.5.2006, 19:11

)

На Паскале возможны аналогичные "извращения"...
Как sources.ru возобновит работу покажу свои "чудеса" smile

Код


function Int3(f: TFunc; a,b: extended; n: byte): extended;
var
  res: double; {если extended, то надо обнулить отдельно, а не в цикле :( TP7.1}
  i: byte;
begin
  inc(n,byte(n and 1)+byte(n=0)*2-byte(n=255)*2);  { (n mod 2=0) && n<>0 }
  for i:=0 to n do
    res:=res*byte(n<>0)+(1 shl (byte((i>0)and(i<n))+byte(odd(i)and(i>0)and(i<n))))*f(a+i*(b-a)/n)*(b-a)/n/3;
  Int3:=res;
end;

Это интегрирование по методу Симпсона, если кто не понял smile

)

Voldemar2004

Дата 7.5.2006, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Скажу к слову, откройте книгу С/С++ Т.А. Павловская (учебник для ВУЗов, Питер) на 103 странице - такого ни в одном языке в кошмарном сне не приснится (прога напоминает что-то, как если бы открыть через F3 в WinCommander'e exe-шник), однако ж, работает!

--------------------

i_i
(';')
(V)

user posted image

Void

Дата 7.5.2006, 21:33 (ссылка)

(нет голосов)

Загрузка ...

λcat.lolcat

Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Voldemar2004, набей сюда хотя бы пару строчек, аж интересно стало smile

--------------------

“Coming back to where you started is not the same as never leaving.” — Terry Pratchett

Voldemar2004

Дата 7.5.2006, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Код

#include <stdio.h>
main(int t, int _, char *a){return!0<t?t<3?main(-79,-13,a+main(-87,1-_,main(-86,0,a+1)+a)); 1,t<_ ? main(t+1,_,a):3,main(-94,-27+t,a)&&t==2\?_<13?main(2,_+1,"%s %d %d\n"):9:16:t<0?t<-72?
main(_,t,"@n'+,#'/*s{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n\{n+,/+#n+,/# ;#q#n+


// здесь идет строк 10 в таком же духе
// и заканчивается это все вот этим:

main((*a=='/')+t,_,a+1);
0<t?main(2,2,"%s")
:*a=='/'||main(0,main(-61,*a,"!ek;dc i@bK'(q)-[w]*%n+r3#l,{}:\nuwloca-0;m .vpbks,fxntdCeghiry"),a+1);
}

А означает сей код, щас если скажу, под столом будете валяться smile

Цитата

"On the first day of Christmas my true love gave to me
two turtle doves
and a partridge in a pear tree
....
"

Добавлено @ 22:02
Сам не проверял, но в книге написано, что будет работать. smile

--------------------

i_i
(';')
(V)

user posted image

e-moe

Дата 7.5.2006, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 3.8.2004
Где: Украина, Донецк

А еще по сети где-то ходят шахматы - на первый взгял какой-то дамп памяти ан нет smile

)

Добавлено @ 23:24
Нашел

Код


/*
 *   Вот программа, занявшая первое  место ("Best of Show") в этом году.  Она
 * вызывается с необязательным числовым параметром (по умолчанию 2) и  играет
 * в шахматы.  Параметр определяет глубину  просмотра  (при  глубине большей,
 * чем 3,  она будет думать  очень долго). Ходы  задаются двумя восьмеричными
 * числами (откуда куда  - см. доску в  начале игры, например, "e2-e4"  нужно
 * будет вводить как "64 44"), в приглашении к приему указывается  количество
 * просмотренных ходов  и оценка позиций  - своей и  противника, т.е.   Вас).
 *
 * Правила игры несколько упрощены - пешки превращаются только в ферзей,  нет
 * взятия на проходе и длинной рокировки (мне и короткую сделать не удалось),
 *   а   также   контроля   правил    повторения   позиций   и   50    ходов.
*/
#include <stdio.h>
#include <stdlib.h>
#define m(x)(x<0?-1:!!x)
#define g tj()-J
#define a(x)(x<0?-x:x)
#define h(x)((x)<=K?x:N-(x))
#define f 9999
#define A return
#define H printf(
#define R double
#define U int
#define V for
#define b else
#define u while
#define B if
U v,w,Y= -1,W,J,p,F,o=f,M,N,K,X,YY,_,P[f],s(); typedef U(*L)(); L q[f]; tj(){
U S=m(v)+(m(w)<<K); B(!S)A J; V(v=W+S; v!=J&&!q[v]; v+=S); A v; } k(){ _=K; A
v?a(v)>1||w-Y||!q[J]:(w-Y&&(w-Y*2||q[W+Y*(N+1)]|| (J>>K)-K+(Y-1)/
v?a(v)>2))||q[J];
} z(){ _=5; A v*w||g; } e(){ _= -2;
A(v*v*v-v||w*w*w-w)&&(J-W-2||(W&N)-4||(W>>K!=(Y-1?N:0))||
q[W+1]||q[W+2]||q[W+K]!=z||P[W+K]*Y<0); } R VR(){ int PZ=0x7fff;
A(R)(rand()&PZ)/(R)PZ; } l(){ _=K+1; A(v*w&&a(v)-a(w))||g; } R UC(){ R i=0,d;
u((i+=d=VR())<1.0); A d; } c(){ _= -11; A a(v)-a(w)||g; } I(ur,n,x){ W=ur;
J=n; B(P[W]!=Y||P[J]==Y)A J+1; v=(J&N)-(W&N); w=(J>>K)-(W>>K); A
q[W]()||(x&&QL(W,J,s)); } TT(W){ v=w=0; A q[W]()+K; } s(){ U j= -1,i; Y= -Y;
V(i=0; i<M; ++i){ B(j<0&&P[i]== -Y&&TT(i)&&_== -2) { j=i; i= -1; } b
B(j>=0&&!I(i,j,0))A Y= -Y; } A!(Y= -Y); } bb(){ _=1; A a(v*w)-2; } uv(){
V(v=0; v<f; ++v){ B(h(v>>K)==0){ U S=h(v&N);
q[v]=!S?z:(S==1?bb:(S==2?c:(v&N>K?l:e))); } b B(h(v>>K)==1)q[v]=k; b q[v]=0;
P[v]=!!q[v]*(28-v); } } y(){ U G=Y,i; J=0; V(i=0; i<M; ++i){
i%8||H"\n%4o ",i); B((Y=P[i]=m(P[i]))&& TT(i))H"%c ",_+93+Y*16); b H"- "); }
H"\n    "); do H"%2d",i++&N); u(i&N); Y=G; H"\n"); } O(W,J){
B((q[J]=q[W])==k&&h(J>>K)==0)q[J]=l; B(q[W]==e)B(J-W==2)O(J+1,J-1); b
B(W-J==2)O(W-1,W+1); P[J]=P[W]; q[W]=0; P[W]=0; } QL(W,J,D)L D; { U
HQ=P[J],YX; L AJ=q[J],XY=q[W]; O(W,J); YX=D(); O(J,W); q[J]=AJ; q[W]=XY;
P[J]=HQ; A YX; } C(){ U i,j,BZ=0; V(i=0; i<M; ++i){ L Z=q[i]; B(Z){ U
r=h(i>>K)+h(i&N),G=Y, S=Z==z?88:(Z==k?11 +r+(P[i]<0?N-(i>>K):(i>>K)):
(Z==l?124-((YY<8&&((i&N)!=K|| (i>>K)!=(P[i]>0?0:N)))?M:0):
(Z==c?41+r:(Z==e?f-r-r:36+r+r)))); Y=P[i]; V(j=0; j<M;
++j)B(!I(i,j,0))S+=(P[j]?5:1); BZ+=G==Y?S:-S; Y=G; } }
B(!(++X&M-1))write(1,".",1); A BZ; } PX(){ U i,Q=0,XP=0,JZ=M*M,E= -f,t,S=o;
B(!F--)A++F+C(); V(i=0; i<JZ; ++i)B(!I(i>>K+K,i&M-1,1)){ Y= -Y; o= -E; t=
-QL(i>>K+K,i&M-1,PX); Y= -Y; B(t>E){ ++XP; Q=i; E=t; B(E>=S) A++F,E; } }
B(!XP)E=s()?-f+1:0; p=Q; A++F,E; } RZ(){ U i,j,T=0; V(; ; ){ y(); o=f; do{
H"\n%d %d %d %s ",X,T,C(),s()?"!":">"); fflush(stdout); }
u(scanf("%o%o",&i,&j)!=2||I(i,j,1)); O(i,j); y(); X=0; ++YY; Y= -Y; T=PX();
i=p>>(K<<1); j=p&(M-1); B(I(i,j,1)){ H"Rats!\n"); A; } O(i,j); Y= -Y;
B(T>M*M)H"\nHar har.\n"); } } main(ac,av)char**av; { long
B(T>time(),j=time(&j);
R i=0; srand((U)j); V(M=0; M<=f; ++M)i+=UC(); M=i/100; B(M&3)++M; B(M&1)--M;
V(N=1; N*N<M; ++N); K= --N/2; F=ac>1?atoi(av[1]):2; uv(); RZ(); }

только я тоже не проверял smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Флейм \| Следующая тема »