Anton Salikhmetov

alexo@euromake:/tmp/and$ cat and.c
void *
true_(x, y)
void *x, *y;
{
        return x;
}

void *
false_(x, y)
void *x, *y;
{
        return y;
}

void *
bool_[] = {false_, true_};

void *
and(x, y)
void *(*x)(), *y;
{
        return x(y, x);
}

main(argc, argv)
char *argv[];
{
        int x = argv[1][0] - '0';
        int y = argv[2][0] - '0';

        return (true_ == and(bool_[x], bool_[y]));
}
alexo@euromake:/tmp/and$ cat Makefile
all: and
        ./and 0 0; echo $$?
        ./and 0 1; echo $$?
        ./and 1 0; echo $$?
        ./and 1 1; echo $$?

clean:
        -rm -f and
alexo@euromake:/tmp/and$ make
cc     and.c   -o and
./and 0 0; echo $?
0
./and 0 1; echo $?
0
./and 1 0; echo $?
0
./and 1 1; echo $?
1
alexo@euromake:/tmp/and$ 

— Так… Товарищи! У нас сегодня диспут! На любую тему. Столкновение разных мнений. Утверждение! Возражение! Вот вы, гражданин из первого ряда… Идите сюда! Подойдите! О чем вы хотели бы поспорить?
— Я?
— Да, вы. Именно вы! Я вчера с вами говорил. Вы были таким темпераментным, запальчивым. Вот теперь здесь, на сцене, попробуйте отстоять свое мнение. Покажите, как это делается! Итак, что вам не понравилось?
— Где?
— Вчера. Вам что-то не понравилось. Вы спросили.
— Мне все понравилось. Я еще вчера говорил, что мне все понравилось.
— Ну, это не разговор. Вот, к примеру, мне не нравится ваш галстук!
— Мне тоже! (Сорвал, выбросил.) Тряпье!
— Ну, постойте… Вы не понимаете. Это диспут. А диспут — разговор, где сталкиваются разные мнения. То есть если я «за», вы должны быть «против». У нас должен быть спор, понимаете? Я считаю, что в семье должен быть один ребенок. А вы возражайте!
— А я считаю, что и одного много.
— Нет, вы возражайте!
— Я возражаю!
— А вы возражайте.
— Я возражаю!
— Вот. (После паузы.) Вот. Почему вы возражаете?
— Я возражаю.
— Почему?
— Я возражаю.
— Нет, но почему?
— Я возражаю.
— Это хорошо. Но почему вы возражаете?
— Я возражаю.
— Нет. Вы так просто не возражайте. Вы должны говорить — два.
— Два.
— Вот. (После паузы.) А я считаю, один.
— И я считаю, один.
— Вы же говорили, два.
— Два.
— Вот. (После паузы.) А я говорю, один.
— Два.
— Вот. (После паузы.) А я говорю, один.
— Два.
— Вот видите, уже спор. А я говорю, один.
— Два.
— Вот, чудно. Так что я говорю: один.
— Два.
— Так, один.
— Два.
— Один.
— Два.
— Ну, спорьте, спорьте… Один.
— Два.
— Ну, вы спорьте, возражайте… Один.
— Два.
— Один.
— Два.

From the Preface

Have you ever...

• wasted a lot of time coding the wrong algorithm?
• used a data structure that was much too complicated?
• tested a program but missed an obvious problem?
• spent a day looking for a bug you should have found in five minutes?
• needed to make a program run three times faster and use less memory?
• struggled to move a program from a workstation to a PC or vice versa?
• tried to make a modest change in someone else's program?
• rewritten a program because you couldn't understand it?

Was it fun?

These things happen to programmers all the time. But dealing with such problems is often harder than it should be because topics like testing, debugging, portability, performance, design alternatives, and style -- the practice of programming -- are not usually the focus of computer science or programming courses. Most programmers learn them haphazardly as their experience grows, and a few never learn them at all.

In a world of enormous and intricate interfaces, constantly changing tools and languages and systems, and relentless pressure for more of everything, one can lose sight of the basic principles -- simplicity, clarity, generality -- that form the bedrock of good software. One can also overlook the value of tools and notations that mechanize some of software creation and thus enlist the computer in its own programming.

Our approach in this book is based on these underlying, interrelated principles, which apply at all levels of computing. These include simplicity, which keeps programs short and manageable; clarity, which makes sure they are easy to understand, for people as well as machines; generality, which means they work well in a broad range of situations and adapt well as new situations arise; and automation, which lets the machine do the work for us, freeing us from mundane tasks. By looking at computer programming in a variety of languages, from algorithms and data structures through design, debugging, testing, and performance improvement, we can illustrate universal engineering concepts that are independent of language, operating system, or programming paradigm.

This book comes from many years of experience writing and maintaining a lot of software, teaching programming courses, and working with a wide variety of programmers. We want to share lessons about practical issues, to pass on insights from our experience, and to suggest ways for programmers of all levels to be more proficient and productive.

http://cm.bell-labs.com/cm/cs/tpop/preface.html

А вот этого я уже в других языках программирования как-то не видал. Эдакая «лиспо-лямбда» получается:

alexo@codedot:~$ wscat -c ws://localhost:8080/

connected (press CTRL+C to quit)

< (function () {
			socket.say = function(data) {
				data = JSON.stringify(data);
				this.send(data);
			};
		})(undefined)

< (function () {
			socket.say("Hello World!");
		})(undefined)
> "Hello World!"

< (function (data) {
			window.alert(data);
		})("Hello World!")

disconnected

alexo@codedot:~$

Кстати, wscat вчера починили.

Below are index.html and server.js sources. The server expects the index.html file as well as SSL key.pem and cert.pem to be located in the current directory.

<!doctype html>
<meta charset="utf-8">
<title></title>

<script>
var socket = new WebSocket("ws://localhost/");

socket.onmessage = function(msg) {
	eval(msg.data);
};
</script>

var read = require("fs").readFileSync;

function server(socket)
{
	socket.on("message", function(msg) {
		socket.send("alert(\"" + msg + "\");");
	});
	socket.send("socket.send(\"Hello World!\");");
}

function client(ws)
{
	var html = read("index.html", "utf8");

	return function(request, response) {
		response.writeHead(200, {
			"Content-Type": "text/html"
		});
		response.end(html.replace("ws", ws));
	};
}

function uniweb(host, ws, port)
{
	(new (require("ws").Server)({
		server: host
	})).on("connection", server);
	host.on("request", client(ws));
	host.listen(port);
}

uniweb(require("http").createServer(), "ws", 80);
uniweb(require("https").createServer({
	key: read("key.pem"),
	cert: read("cert.pem")
}), "wss", 443);