# 1.rb one-liners helper lib.

require 'nano/string/tabto'

K=Kernel
O=Object
C=Class

module Kernel
  alias pi p
  alias p print
  alias ps puts
  alias s sleep
  alias l loop
end

module Enumerable
  alias m map
end

class Array
  alias e each
  alias r reverse
end

class String
  alias e each
  alias r reverse
end

class Integer
  alias t times
end


module FamousOneLiners
  extend self

  ONELINERS = []

  def self.define_one_liner( name, &code_blk_str )
    ONELINERS[name.to_sym] = code_blk_str.call.tabto(0)
    define_method( name )
      eval ONELINERS[name.to_sym]
    end
  end

  def one_liner(name)
    ONELINERS[name.to_sym]
  end


  define_one_liner :color_ruby do <<-HERE
    "jp6iSZmkLp5ISZlEiW5C".unpack("m")[0].unpack("C*").map{|x|x.chr}.join.
    unpack("B*")[0].scan(/.{24}/){i=7;$&.scan(/..../){print"\e[3#{i-=1};
    1;40m  ";$&.each_byte{|z|print" #"[z-?0,1]*2}};puts"\e[0m"}
    HERE
  end

  define_one_liner :quack do <<-HERE
    s="\e[2J\e[0;0H         _\nQuack! >(*)____,\n        (` =~~/\n^v^v^v^v^`---'v^v^v^v^\n";i=0;
    l{s[21,6]=i&1>0?'Quack!':' '*6;s.tr!(t='*.>v^<,"',t.r);$><<s;i+=s 1}
    HERE
  end

  define_one_liner :quack_alt do <<-HERE
    s="\e[2J\e[0;0H         _\nQuack! >(*)____,\n        (` =~~/\n^v^v^v^v^`---'v^v^v^v^\n";i=0;
    loop{s[21,6]=i&1>0?'Quack!':' '*6;s.tr!(t='*.>v^<,"',t.reverse);$><<s;i+=sleep 1}
    HERE
  end

end