topher6345

Common Lisp Hack Night # 3

Factorial recursive

(defun fact (n) 
   (if (= n 1)
       1
   (* n (fact (1- n)))))

topher6345

#!/usr/bin/env ruby

require 'rubygems'
require 'json'
require 'net/http'
require 'colorize'
 
def fetch(url)
   resp = Net::HTTP.get_response(URI.parse(url))
   data = resp.body

topher6345

Homoiconicity

http://en.wikipedia.org/wiki/Homoiconicity

(setq y '(+ (* 7 (expt x 3) (* x 9) 2 (cos (* 3 x)))))

Predicates - test if something is true.

topher6345

# functional but linter hates it
(1..100).map {|e| (e % 15).zero? ? "FizzBuzz": (e % 3).zero? ? "Fizz" : (e % 5).zero? ? "Buzz": e }.each {|e| puts e }

topher6345

require 'yaml'
puts YAML.load_file(ARGV[0].to_s).sort

topher6345

Get all inherited objects and include'd mixins

User.ancestors

Get all methods that an object has

User.methods

FoodParser.methods.include?(:new) 

topher6345

* * * * * cd /home/pi/Sites/testapp && /home/pi/.rvm/bin/rvm all do bundle exec rake sendemail:send >> /home/pi/Sites/testapp/log/cronlog.txt

topher6345

Patient Success Inner Graph

A Pen by Christopher Saunders on CodePen.

License.

topher6345

require 'uglifier'

Dir[File.join('_site', '**', '*')].reject { |p| File.directory? p }
.each do |file|
  next unless file[/\.js/]
  compressed = Uglifier.compile(
    File.read(file)
  )
  File.open(file, 'w') { |newfile| newfile.write(compressed) }
  puts "#{file} uglified."

topher6345

require 'zlib'

Dir[File.join('_site', '**', '*')].reject { |p| File.directory? p }
.each do |oldfile|
  old_file_text = File.read(oldfile)
  open(oldfile, 'wb') do |file|
    gzip = Zlib::GzipWriter.new(file)
    gzip << old_file_text
    gzip.close
  end