Kiterminal's Blog

require "openssl"
require "net/smtp"
 
Net::SMTP.class_eval do
  private
  def do_start(helodomain, user, secret, authtype)
    raise IOError, 'SMTP session already started' if @started
    check_auth_args user, secret, authtype if user or secret
 
    sock = timeout(@open_timeout) { TCPSocket.open(@address, @port) }
    @socket = Net::InternetMessageIO.new(sock)
    @socket.read_timeout = 60 #@read_timeout
 
    check_response(critical { recv_response() })
    do_helo(helodomain)

irb(main):001:0> def generate_password(length = 6)
irb(main):002:1> chars = ('a'..'z').to_a + ('A'..'Z').to_a + ('1'..'9').to_a - ['o', 'O', 'i', 'I']
irb(main):003:1> Array.new(length) { chars[rand(chars.size)] }.join
irb(main):004:1> end
=> nil

irb(main):005:0> pass = generate_password
=> "khbNP9"

irb(main):006:0> pass = generate_password(15)

newtype Stack a = Stk [a] deriving Show
 
push x (Stk xs) = Stk (x:xs)
 
pop (Stk []) = error "pop from an empty stack"
pop (Stk (_:xs)) = Stk xs
 
top (Stk []) = error "top from an empty stack"
top (Stk (x:_)) = x
 
emptyStack = Stk []
 
stackEmpty (Stk []) = True
stackEmpty (Stk _ ) = False

$ hugs Stacks.hs
Main> push 5 (push 3 (push 1 emptyStack))
Stk [5,3,1]
Main> top (push 5 (push 3 (push 1 emptyStack)))
5
Main> pop (push 5 (push 3 (push 1 emptyStack)))
Stk [3,1]

CREATE TABLE dishes (
  id INT NOT NULL AUTO_INCREMENT,
  name VARCHAR(50) NOT NULL,
  descript VARCHAR(100),
  PRIMARY KEY(id)
);

INSERT INTO dishes (name, descript) VALUES ("ข้าวผัดกะเพราหมูแดง", "ผัดกะเพราหมูแดง");
INSERT INTO dishes (name, descript) VALUES ("ข้าวคะน้าหมูกรอบ", "ผัดคะน้าใส่หมูกรอบ");
INSERT INTO dishes (name, descript) VALUES ("ข้าวคอหมูย่าง", "เนื้อหมูย่างราดน้ำจิ้มเผ็ด");

Hugs> 1 : [2, 3]
[1,2,3]

Hugs> "Kit" ++ "erminal"
"Kiterminal"

Hugs> [1, 3..10] !! 1
3

Hugs> concat [[1, 2], [], [3]]
[1,2,3]