Sergey Averyanov averyanov

## 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{@_}

## links.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                averyanov
                / links.md
            
            
              Created Dec 7, 2012
            
              
                Ссылки
              
          
      View links.md
  
      
    bundler

http://gembundler.com

whenever

gem - https://github.com/javan/whenever
demo - https://github.com/averyanov/mc/archive/whenever.zip
repo - https://github.com/averyanov/mc/tree/whenever

git clone git://github.com/averyanov/mc.git --branch whenever

rails_config

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

## gist:1863163
<?php echo("Hello world"); ?>

## gist:1863159
<?php echo("Hello world"); ?>

## 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

## 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;

## 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;

## 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;

## gist:232846

      
              0 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                averyanov
                / gist:232846
            
            
              Created Nov 12, 2009
            
          
              We couldn’t find that file to show.
	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{@_}
	Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества.
	Конфуций поставил перед ней пять чайников и пять чашек, и говорит:
	- Лей чай в пять чашек из одного чайника. Нравится?
	- Нравится, - согласилась женщина.
	- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится?
	- Ещё больше нравится, - призналась женщина.
	- Дура! - заорал Конфуций. - Такую притчу испортила!
	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
	#!/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;