mtimkovich

package main

import (
    "fmt"
    "math/rand"
    "time"
)

func main() {
    rand.Seed(time.Now().UnixNano())

mtimkovich

public class randomCapitals {
    public static String randomUpper(String sentence) {
        StringBuilder output = new StringBuilder();

        for (int i = 0; i < sentence.length(); i++) {
            char c = sentence.charAt(i);

            if (Math.random() > .5) {
                c = Character.toUpperCase(c);
            } else {

mtimkovich

public class Paul {
    public static void printArray(int[] array) {
        System.out.print("{");

        for (int i = 0; i < array.length; i++) {
            System.out.print(array[i]);

            if (i < array.length - 1) {
                System.out.print(", ");
            }

mtimkovich

object randomCapitals {
  def randomUpper(sentence: String) = {
    sentence.map(c => 
        if (math.random > .5) 
          c.toUpper 
        else 
          c.toLower)
  }

  def main(args: Array[String]) {

mtimkovich

(defun midpoint (lst)
  (setq current lst)
  (setq prev lst)
  (loop while (and lst (rest lst)) do
        (setq lst (rest (rest lst)))
        (setq prev current)
        (setq current (rest current)))
  prev)

(defun dmerj (x y)

mtimkovich

me:
	@true
a:
	@true
sandwich:
	@if test `whoami` != "root"; \
	then \
		echo "What? Make it yourself."; \
		exit; \
	else \

mtimkovich

#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
use feature qw(switch say);
use LWP::Simple;

my $url = "http://apps.cs.utexas.edu/unixlabstatus/";

my $html = get $url;

mtimkovich

(defun plural (n)
  (if (> n 1) "s" ""))
 
(defun beer-song (n)
  (format t "~a bottle~a of beer on the wall.~%" n (plural n))
  (format t "~a bottle~a of beer.~%" n (plural n))
  (format t "Take one down.~%")
  (format t "Pass it around.~%")
 
  (decf n)

mtimkovich

#!/usr/bin/env python
import math

class Vector(tuple):
    def __add__(self, other):
        return Vector(x + y for x, y in zip(self, other))

    def __sub__(self, other):
        return Vector(x - y for x, y in zip(self, other))

mtimkovich

#!/usr/bin/env perl
use strict;
use warnings;
use File::Copy::Recursive "dircopy";
use Cwd;
use autodie;
use feature 'say';

my @ABS_DIRS = qw(core extra community multilib);
my $BUILD_DIR = "$ENV{HOME}/abs";