Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

View averyanov's full-sized avatar

Sergey Averyanov averyanov

View GitHub Profile
@averyanov
averyanov / qxp.pm
Last active August 29, 2015 14:11 — forked from pavel-odintsov/qxp.pm
package qxp;
use strict;
# https://code.google.com/p/qxp/
sub H($){pack'H*',$_[0]}
sub by{map{[splice@_,1,$_[0]]}!($#_%$_[0])..$#_/$_[0]}
sub is($){$_ eq$_[0]}
sub cat{join'',@_}
sub list{@_}
We couldn’t find that file to show.
#!/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
<?php echo("Hello world"); ?>
<?php echo("Hello world"); ?>
Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества.
Конфуций поставил перед ней пять чайников и пять чашек, и говорит:
- Лей чай в пять чашек из одного чайника. Нравится?
- Нравится, - согласилась женщина.
- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится?
- Ещё больше нравится, - призналась женщина.
- Дура! - заорал Конфуций. - Такую притчу испортила!
@averyanov
averyanov / links.md
Created December 7, 2012 06:22
Ссылки