Skip to content

Instantly share code, notes, and snippets.

View ryanmr's full-sized avatar

Ryan Rampersad ryanmr

31 followers · 7 following
View GitHub Profile
@ryanmr
ryanmr / semant.sml
Last active August 29, 2015 14:18
| tExp (A.IfExp{test, then', else', pos}) =
let
val test' = actual_type(tExp test, pos)
val tty = actual_type(tExp then', pos)
val ety = (case else' of
SOME(e) => actual_type(tExp e, pos)
| _ => tty) (* if there is no else, just pretend it matches with tty - hax *)
(* do the tty and ety match? *)
@ryanmr
ryanmr / semant.sml
Created April 6, 2015 05:37
(* check_duplicates robust enough; could not compare deeply *)
fun check_duplicates([],f) = ()
| check_duplicates(h::l, f) =
if (List.exists (fn (x) => (h = x)) l) then
(f h ; check_duplicates(l,f))
else check_duplicates(l,f)
(* cd2 uses an accessor g to access the record fields or tuples *)
fun check_duplicates2([],f,g) = ()
@ryanmr
ryanmr / semant.sml
Created April 6, 2015 22:57
(*
What I hate about SML; parathensis are optional sometimes and absolutely required other times,
and currying is possible, so you never know what you want.
*)
| tExp(A.RecordExp {fields, typ, pos}) =
let
val typ' = (case Symbol.look(tenv, typ) of
SOME(t) => actual_type(t, pos)
| _ => (report pos (E.UndeclaredType (Symbol.name typ)) "undeclared type for record"; (E.ERROR))
@ryanmr
ryanmr / ReportGenerator.java
Created April 9, 2015 19:58
package sabe;
import java.util.ArrayList;
import edu.umn.csci5801.sabe.interfaces.AccountReportIntf;
import sabe.calculations.HealthInsurance;
import sabe.calculations.UndergraduateCSECollegiateFees;
import sabe.calculations.UndergraduateGeneralFees;
import sabe.calculations.UndergraduateInternationalStudentFees;
import sabe.calculations.UndergraduateMedicalCollegiateFees;
@ryanmr
ryanmr / Switcher.ps1
Last active August 29, 2015 14:19
# configure: what is the name of the DAT you wish to switch to?
$strSeedFile = "Local_MAIN.dat"
# Do not change this.
$strDestinationFile = "Local.dat"
# switch to desired local dat.
cp $strSeedFile $strDestinationFile
@ryanmr
ryanmr / digimon.php
Created April 13, 2015 17:58
<?php
require 'vendor/autoload.php';
$client = new \GuzzleHttp\Client();
$response = $client->get('http://digimon-adventure.net/application/nade2.php?click=20150413', [
'headers' => [
@ryanmr
ryanmr / WhatAmIMissing.java
Created April 14, 2015 22:10
package sabe;
import java.util.Set;
import edu.umn.csci5801.sabe.interfaces.UMNDatabaseIntf;
import edu.umn.csci5801.sabe.model.StudentRecord;
import edu.umn.csci5801.sabe.model.User;
public class Database implements UMNDatabaseIntf {
@ryanmr
ryanmr / gw2.html
Created April 23, 2015 02:47
<!doctype html>
<html>
<head>
<title>Guild Wars 2 Characters</title>
<script type="text/javascript" src="lodash.js"></script>
<script type="text/javascript" src="moment.js"></script>
<script type="text/javascript">
@ryanmr
ryanmr / gist:6db7ea07098ab135e4e8
Created April 23, 2015 20:15
// This is why I hate SML.
// I am told to look for an error around line 505, in the range of 493 to 506.
// I can do that, I have eyes!
// But nothing is wrong there.
semant.sml:505.13-505.46 Error: operator is not a function [tycon mismatch]
operator: E.fnvar ?.table * E.ty ?.table
in expression:
@ryanmr
ryanmr / ItemSet.java
Created April 24, 2015 15:32
package sabe;
import java.util.HashSet;
import java.util.Set;
import edu.sabe.interfaces.ReportItemIntf;
public class ItemSet {
Set<Item> set;