Skip to content

Instantly share code, notes, and snippets.

@o-sam-o
o-sam-o / gist:1117966
Created August 1, 2011 11:20
Hacky Attempt At Haskell Reverse Polish Notation
solveRPN :: String -> Double
solveRPN [] = 0
solveRPN s = head $ foldl solveRPN' [] $ words s
solveRPN' :: [Double] -> String -> [Double]
solveRPN' (x2:x1:stack) "+" = (x1 + x2):stack
solveRPN' (x2:x1:stack) "-" = (x1 - x2):stack
solveRPN' (x2:x1:stack) "*" = (x1 * x2):stack
solveRPN' stack num = (read num):stack
@o-sam-o
o-sam-o / gist:1180613
Created August 30, 2011 10:25
Haskell Compile Question
import Control.Monad
-- Compiles
loadPaths :: FilePath -> IO [Int]
loadPaths filename = do strings <- liftM lines $ readFile filename
return (map read strings)
-- Doesn't Compile
loadPaths :: FilePath -> IO [Int]
@o-sam-o
o-sam-o / gist:1207916
Created September 10, 2011 04:23
Scrap Mackay City Council Development Applications
require 'nokogiri'
require 'open-uri'
require 'date'
require "awesome_print"
def clean_whitespace(a)
a.gsub(/[\r\n\t]/, ' ').squeeze(" ").strip
end
@o-sam-o
o-sam-o / gist:1207966
Created September 10, 2011 05:21
Hobart City Council Development Applications
require 'nokogiri'
require 'open-uri'
require 'date'
require "awesome_print"
url = "http://www.hobartcity.com.au/go/AdvertisedApps/output.html"
doc = Nokogiri::HTML(open(url))
table = doc.at_css('table')
@o-sam-o
o-sam-o / gist:1208099
Created September 10, 2011 08:13
Knox Council Development Applications
require 'mechanize'
require 'date'
require "awesome_print"
base_url = "https://eservices.knox.vic.gov.au/ePathway/Production/Web/generalenquiry/"
url = "#{base_url}enquirylists.aspx"
agent = Mechanize.new
first_page = agent.get url
@o-sam-o
o-sam-o / gist:1208189
Created September 10, 2011 11:00
Shoalhaven Council Development Applications
require 'nokogiri'
require 'open-uri'
require 'date'
require "awesome_print"
url = "http://doc.shoalhaven.nsw.gov.au/RSS/SCCRSS.aspx?ID=OpenApps"
doc = Nokogiri::XML(open(url))
comment_url = 'TODO'
@o-sam-o
o-sam-o / gist:1426394
Created December 3, 2011 07:26
.vimrc.local
" Disable toolbar
if has("gui_running")
set guioptions=egmrt
endif
color rootwater
set guifont=Monaco:h12
set spell
@o-sam-o
o-sam-o / roman.js
Created February 24, 2012 03:56
JS Roman Numerals Kata
function multipleChar(theChar, times){
var result = "";
for(var i = 0;i < times;i++){
result += theChar;
}
return result;
}
CHAR_LOOKUP = [
{
@o-sam-o
o-sam-o / flickr_to_pinterest.rb
Last active October 23, 2017 04:42
Flickr to Pinterest
require 'mechanize'
require 'cgi'
require 'json'
PINTERST_EMAIL = "...."
PINTERST_PASSWORD = "...."
PINTERST_BOARD_ID = "264375509314468871"
FLICKR_API_KEY = "3fffd0917fa897e24bd5a442018df29a"
FLICKR_PHOTOSET = "72157625277593652"
ALREADY_POSTED_FILE = "already_posted.txt"
@o-sam-o
o-sam-o / flicker_to_tweet.rb
Created December 18, 2014 05:47
flicker_to_tweet.rb
require 'mechanize'
require 'json'
require 'awesome_print'
require 'twitter'
require 'base58'
require 'net/http'
require 'tempfile'
require 'uri'
FLICKR_API_KEY = "3fffd0917fa897e24bd5a442018df29a"