fadeev

;; Exercise 3.2, p. 56
(defun union-in-order (&rest lists)
  "Returns a union of lsts, preserving the order"
  (remove-duplicates (reduce #'append lists)
                     :from-end t
                     :test #'equal))

;; Exercise 3.3, p. 56
(defun sort-by-frequency (list)
  "Returns sorted by frequency alist of occurrences,

fadeev

aptitude install iwlwifi wpasupplicant

In [ /etc/network/interfaces ] add the following:

auto  wlan0
iface wlan0 inet dhcp
      wpa-ssid [ wireless-network ]
      wpa-psk  [ password ]

Configure keyboard layout: dpkg-reconfigure keyboard-configuration

fadeev

def cons(x,y):
  return lambda pick: x if pick == 1 else y

def car(cons):
  return cons(1)

def cdr(cons):
  return cons(2)

fadeev

def cons a, b
  lambda { |pick|
    return a if pick == 1
    return b if pick == 2
  }
end

def car cons
  cons.call 1
end

fadeev

# encoding: utf-8

class String
  def cyr_downcase
    self
      .unpack("U*")
      .map { |c| if (1040..1071) === c then (c + 32) elsif (1025 == c) then 1105 else c end }
      .pack("U*")
  end
  

fadeev

# From the Highline gem, https://github.com/JEG2/highline

def get_character( input = STDIN )
  raw_no_echo_mode
  
  begin
    input.getbyte
  ensure
    restore_mode
  end