Sergey Averyanov averyanov

We couldn’t find that file to show.

bundler

	#!/usr/bin/perl -w
	use strict;
	use AnyEvent::HTTP;
	use Time::HiRes qw/time/;

	use constant LOGGER_INTERVAL => 1;
	use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

	my ( $max_requests, $max_threads, $url ) = @ARGV;
	die USAGE unless $max_requests && $max_threads && $url;

	#!/usr/bin/perl -w
	use strict;
	use AnyEvent::HTTP;
	use Time::HiRes qw/time/;

	use constant LOGGER_INTERVAL => 1;
	use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

	my ( $max_requests, $max_threads, $url ) = @ARGV;
	die USAGE unless $max_requests && $max_threads && $url;

	#!/usr/bin/perl -w
	use strict;
	use AnyEvent::HTTP;
	use Time::HiRes qw/time/;

	use constant LOGGER_INTERVAL => 1;
	use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

	my ( $max_requests, $max_threads, $url ) = @ARGV;
	die USAGE unless $max_requests && $max_threads && $url;

	module Main where

	import Control.Monad
	import Data.Char

	data Expr = Expr Integer Char Integer [Integer]
	deriving Show

	digits :: String -> [Integer]
	digits s = map (toInteger . digitToInt) s

	Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества.
	Конфуций поставил перед ней пять чайников и пять чашек, и говорит:
	- Лей чай в пять чашек из одного чайника. Нравится?
	- Нравится, - согласилась женщина.
	- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится?
	- Ещё больше нравится, - призналась женщина.
	- Дура! - заорал Конфуций. - Такую притчу испортила!