Skip to content

Instantly share code, notes, and snippets.

Hunter McMillen mcmillhj

Block or report user

Report or block mcmillhj

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View type-example.sml
(* fn: ('a -> 'b) -> 'a list -> 'b list *)
fun accumulate _ [] = []
| accumulate f (x::xs) = f x :: accumulate f xs
(* fn: ('a -> 'b) * 'a -> 'b list *)
fun accumulate (f: ('a -> 'b), xs: 'a list): 'b list =
raise Fail "'accumulate' has not been implemented"
@mcmillhj
mcmillhj / multi-top.pl
Created Dec 18, 2014
ssh into a list of servers and call the top command, then concatenate the results into a single file
View multi-top.pl
#!/usr/bin/perl
use strict;
use warnings;
exit(0) unless @ARGV;
open(my $fh, '>>', 'mutlti-top.out') or die "$!";
foreach my $server ( @ARGV ) {
print {$fh} `ssh ${server} top -bn 1`;
@mcmillhj
mcmillhj / rainforestqa.pl
Created Apr 29, 2014
Rainforest QA challenge
View rainforestqa.pl
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use English qw(-no_match_vars);
use JSON qw(decode_json);
use LWP::UserAgent;
You can’t perform that action at this time.