Skip to content

Instantly share code, notes, and snippets.

Avatar

Sergey Averyanov averyanov

View GitHub Profile
View 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{@_}
View links.md
View gist:2754690
Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества.
Конфуций поставил перед ней пять чайников и пять чашек, и говорит:
- Лей чай в пять чашек из одного чайника. Нравится?
- Нравится, - согласилась женщина.
- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится?
- Ещё больше нравится, - призналась женщина.
- Дура! - заорал Конфуций. - Такую притчу испортила!
View ARITH.hs
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
View gist:320710
#!/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;
View gist:320578
#!/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;
View gist:320557
#!/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;
We couldn’t find that file to show.