joaomilho

# >---------------------------------------------------------------------------<
#
#            _____       _ _   __          ___                  _ 
#           |  __ \     (_) |  \ \        / (_)                | |
#           | |__) |__ _ _| |___\ \  /\  / / _ ______ _ _ __ __| |
#           |  _  // _` | | / __|\ \/  \/ / | |_  / _` | '__/ _` |
#           | | \ \ (_| | | \__ \ \  /\  /  | |/ / (_| | | | (_| |
#           |_|  \_\__,_|_|_|___/  \/  \/   |_/___\__,_|_|  \__,_|
#
#   This template was generated by RailsWizard, the amazing and awesome Rails

joaomilho

qs [] = []
qs (x:xs) = qs (filter (<= x) xs) ++ [x] ++ qs (filter (> x) xs)

joaomilho

module Main where
  import Text.ParserCombinators.Parsec
  
  runop :: Char -> Integer -> Integer -> Integer
  runop '+' firstOperand secondOperand = firstOperand + secondOperand
  runop '-' firstOperand secondOperand = firstOperand - secondOperand
  runop '*' firstOperand secondOperand = firstOperand * secondOperand
  runop '^' firstOperand secondOperand = firstOperand ^ secondOperand

  operation :: Parser Integer

joaomilho

module ChameleonBass where

import Haskore.Music
import Haskore.Melody
import Haskore.Basic.Pitch
import Haskore.Basic.Duration
import Haskore.Music.GeneralMIDI
import Haskore.Interface.MIDI.Render

pitch_line = map (\(x,y,z) -> x (y :: Octave) z () )

joaomilho

-- relational.hs

import Database.HDBC
import Database.HDBC.PostgreSQL
import Data.List

printTuples conn rel = quickQuery' conn ("SELECT DISTINCT * FROM " ++ rel) []
(⋈) = intercalate " NATURAL JOIN "
(π) fields rel1 = "(SELECT " ++ (intercalate "," fields) ++ " FROM " ++ rel1 ++ ") a"

joaomilho

(¬) True = False
(¬) False = True

True ∧ x = x
False ∧ x = False

True ∨ x = True
False ∨ x = x

True → x = x

joaomilho

brew install erlang

joaomilho

wget http://www.chicagoboss.org/ChicagoBoss-0.8.7.tar.gz
tar -xvf ChicagoBoss-0.8.7.tar.gz
cd ChicagoBoss
make

joaomilho

make app PROJECT=petster
cd ../petster

joaomilho

-module(petster_hello_controller, [Request]).
-compile(export_all).

world('GET', []) ->
  {output, "This is not a hello world"}.