Jonathan Strickland djanatyn

## prime.pl
#!/usr/bin/perl -w
use strict;

sub check_prime {
  my ($max) = @_;
  for my $x (2 .. ($max - 1)) { if ($max % $x == 0) { return 1; } }
  return 0;
}

for my $x ( 1..100 ) {

## gist:1196053
;; djanatyn's emacs config
;; feel free to debug or use, or whatever.

;; set load path
(add-to-list 'load-path "~/.emacs.d/sitelisp/")
(load "~/.emacs.d/cperl-mode.el")

;; open with *scratch* buffer
(setq inhibit-splash-screen t)

## stuff.rb
class Person
  attr_accessor :name, :age
  def initialize(name,age)
    @name = name
    @age  = age.to_i
  end
  def inspect
    "#@name (#@age)"
  end
end

## gist:1206339
TOTAL_DISTANCE = 150000
COST_OF_GAS    = 4

class car:
    def __init__(self,mpg,cost):
        self.mpg = mpg
        self.cost = cost

cars = [ car(250,5000), car(600,900000), car(3000,20) ]
costs = []

## gist:1206375
#!/usr/bin/perl -w
use strict;
use warnings;

$TOTAL_DISTANCE + 150000;
$PRICE_PER_GALLON = 4;

my @cars = [
    { 'mpg' => 250, cost => '5000' },
    { 'mpg' => 250, cost => '5000' },

## gist:1212674
#!/usr/bin/perl -w
use strict;
use warnings;

my $TOTAL_DISTANCE = 150000;
my $PRICE_PER_GALLON = 4;

my @cars = (
    { mpg => 300, cost => '5000' },
    { mpg => 250, cost => '5000' },

## gist:1216966
#!/usr/bin/perl -w
use strict;
use warnings;

my $max = 100;
my @array;

for ( 1 .. $max ) { $array[$_] = 1; }
for ( 2 .. $max ) {
  my $i = 2;

## index.html
<html>
<head>
  <link rel="stylesheet" type="text/css" href="style.css" />
  <title>Hello world!</title>
</head>
<body>
<center>
  <br/>
  <div id="container">
    <img src="tux.png" align="right" />

## fizz.hs
fizzBuzz n
         | mod n 3 == 0 && mod n 5 == 0 = "FizzBuzz"
         | mod n 3 == 0                 = "Fizz"
         | mod n 5 == 0                 = "Buzz"
         | otherwise                    = show n

main = do
     theFizzies = map fizzBuzz [1..100]
     putStrLn $ show theFizzies

## movies
movies to watch
===============

(that movie about the engineer and the time traveller that mr. miller saw)
pan's labyrinth
children of men
fight club
the shawshank redemption
the lives of others
a beautiful mind
	#!/usr/bin/perl -w
	use strict;

	sub check_prime {
	my ($max) = @_;
	for my $x (2 .. ($max - 1)) { if ($max % $x == 0) { return 1; } }
	return 0;
	}

	for my $x ( 1..100 ) {
	;; djanatyn's emacs config
	;; feel free to debug or use, or whatever.

	;; set load path
	(add-to-list 'load-path "~/.emacs.d/sitelisp/")
	(load "~/.emacs.d/cperl-mode.el")

	;; open with scratch buffer
	(setq inhibit-splash-screen t)
	class Person
	attr_accessor :name, :age
	def initialize(name,age)
	@name = name
	@age = age.to_i
	end
	def inspect
	"#@name (#@age)"
	end
	end
	TOTAL_DISTANCE = 150000
	COST_OF_GAS = 4

	class car:
	def __init__(self,mpg,cost):
	self.mpg = mpg
	self.cost = cost

	cars = [ car(250,5000), car(600,900000), car(3000,20) ]
	costs = []
	#!/usr/bin/perl -w
	use strict;
	use warnings;

	$TOTAL_DISTANCE + 150000;
	$PRICE_PER_GALLON = 4;

	my @cars = [
	{ 'mpg' => 250, cost => '5000' },
	{ 'mpg' => 250, cost => '5000' },
	<html>
	<head>
	<link rel="stylesheet" type="text/css" href="style.css" />
	<title>Hello world!</title>
	</head>
	<body>
	<center>
	<br/>
	<div id="container">
	<img src="tux.png" align="right" />
	fizzBuzz n
	\| mod n 3 == 0 && mod n 5 == 0 = "FizzBuzz"
	\| mod n 3 == 0 = "Fizz"
	\| mod n 5 == 0 = "Buzz"
	\| otherwise = show n

	main = do
	theFizzies = map fizzBuzz [1..100]
	putStrLn $ show theFizzies
	movies to watch
	===============

	(that movie about the engineer and the time traveller that mr. miller saw)
	pan's labyrinth
	children of men
	fight club
	the shawshank redemption
	the lives of others
	a beautiful mind