j1n3l0

;;; ----------------------------------------------------------------------------
;;; (Re)Introduction to Clojure
;;; ----------------------------------------------------------------------------

(ns j1n3l0
  ;; (:gen-class)
  (:use [clojure.contrib.str-utils2 :only (capitalize)]
        [clojure.contrib.duck-streams :only (read-lines)]))

(defn hello

j1n3l0

;;; Import functions from one of my own modules
;;; I think I need to understand/set up CLASSPATH

(ns digits)

(def digit_map
     { \0 0 \1 1 \2 2 \3 3 \4 4 \5 5 \6 6 \7 7 \8 8 \9 9 })

(defn digits-1
  "Return the digits of a number as a list"

j1n3l0

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

=head1 OVERVIEW

Moose will load a class specified via an attributes C<isa> option.

=cut

j1n3l0

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

=head1 OVERVIEW

Moose will load a class specified via an attributes C<isa> option.

=cut

j1n3l0

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

{
    package Foo;
    use Moose;
    has bar => ( is => 'rw', isa => 'Object' );
}

j1n3l0

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

my @not_objects
    = ( [ 'array', 'ref' ], { 'hash' => 'ref' }, \'string ref', 'string', 1 );

ANY: {
    {
        package Foo::Accepts::Any;

j1n3l0

#!/usr/bin/env perl                                                                                               
use Modern::Perl;

{
  package BioSeq;
  use Moose;
  extends 'Bio::Seq';
  sub compare {
    my ( $self, $other ) = @_;
    return 1 if $self->seq eq $other->seq;

j1n3l0

#!/usr/bin/env perl

=pod

Find the largest palindrome made from the product of two 3-digit numbers.

=cut

use strict;
use warnings FATAL => 'all';

j1n3l0

;;; Solution to Euler problem 008
;;
;; Find the greatest product of five consecutive digits in the 1000-digit number.

(ns euler)

(def number 7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005

j1n3l0

#!/usr/bin/env perl
#
# notes.pl - some notes from the advanced perl training course

use 5.10.0;
use warnings;

# is this a bug or a feature? - feature
sub ask {
    given ( $_[0] ) {