jmdeldin

require 'benchmark/ips'

START = 1
FINISH = 1_000_000
HALF = FINISH / 2

Benchmark.ips do |x|
  x.report('lazy') do
    (START..FINISH).lazy.include?(HALF)
  end

jmdeldin

let sum lst = 
  let rec aux acc rest = match rest with
    | [] -> acc
    | x::xs -> aux (x+acc) xs in
  aux 0 lst;;

sum [3;1;4;1;5;9];;
  
                   

jmdeldin

#! /bin/sh

echo "$0 [FILE] -- print a message to STDOUT or FILE" >&2

if [ -z $1 ]; then
  exec 3>&1 # stdout
else
  exec 3>"$1" # file
fi

jmdeldin

(defun make-password ()
  (interactive)
  (let* ((cmd "egrep '{6,}' /usr/share/dict/words | shuf -n 4 | tr \"\\n\" ' '")
         (pass (replace-regexp-in-string " $" "" (shell-command-to-string cmd))))
    (message pass)
    (kill-new pass)))

jmdeldin

class Book
  include Neo4j::ActiveNode

  property :title
  has_many :in, :spaces, rel_class: :BookAuthor
end

class Author
  include Neo4j::ActiveNode

jmdeldin

module StringStripper
  def strip(*keys)
    before_validation do
      keys.each do |k|
        self[k] = self[k].to_s.gsub(/[[:space:]]/, '') if self[k].present?
      end
    end
  end
end

jmdeldin

def foo(arg1:, arg2: :foo)
  puts "arg1 = %s, arg2 = %s" % [arg1, arg2]
end

foo(arg1: "HI")
foo(arg1: "HI", arg2: "MOM")
foo(**{arg1: "HI", arg2: "MOM"})

jmdeldin

(defun jm/yeller ()
  (interactive)
  (set-background-color "#FFFFDD"))

(defun jm/minty ()
  (interactive)
  (set-background-color "#F0FFF0"))

jmdeldin

class Book
  include Neo4j::ActiveNode

  property :title
  has_many :in, :spaces, rel_class: :BookAuthor
end

class Author
  include Neo4j::ActiveNode

jmdeldin

$grid = Array.new(10, "X").map { |r| Array.new(10, "X") }

def $grid.print
  puts map(&:join)
end

def $grid.draw(row, col, size: 2)
  bounds = $grid.length
  fail "out of bounds #{row}+#{size} > #{bounds}" if row+size > bounds
  shape = ' '