Nic Doye nicdoye

## how-many-steps.pl
#!/usr/bin/env perl

# Solution to a question in @gayle's "Cracking the Coding Interview" 5th ed.
# A child is running up the stairs and can take 1, 2 or 3 steps at a time.
# Count how many possible ways the child can run up the stairs.
use strict;
use warnings;
use Data::Dumper;

use feature qw/ say /;

## quicksort.pl
#!/usr/bin/env perl

use strict;
use warnings;

use feature qw(say);

########################################################################

package QS;

## count-words.pl
#!/usr/bin/env perl

use strict;
use warnings;

use feature qw(say switch);

######################################################################
package HashOfHash;
use Moose;

## 7z-release.sh
#!/bin/bash

7z a -x'!*/.git' $1.7z $1

## perl-find.sh
#!/bin/bash

# I know it's a bit stupid and there's better ways to do it. But who doesn't like playing.
# Written for an old CentOS 4 server where people have installed Perl modules any old how.

# Is there a way to merge the two matches together?

find /usr/*/perl5 |  ruby -ne '/^(\/\w+){4}\/.*\.pm/.match($_) && puts( /^(\/\w+){4}\/[\.\d]*\/{0,1}(.*)/.match($_)[2] )'

## pidfile-checker.sh
#!/bin/bash

. /lib/lsb/init-functions

pidofproc "$@" &>> /dev/null

retval=$?

# Ignore cases such as retval=3 (Pid file doesn't exist)
if [ $retval -ne 1 ]

## csvwriter.groovy
import org.apache.commons.csv.CSVPrinter
import org.apache.commons.csv.CSVFormat

CSVPrinter printer = new CSVPrinter(
    new PrintWriter("test.csv"),
    CSVFormat.DEFAULT
)

answer = [ [5,6,"asdf",7],[9,10,"a b","z,x",12]]

## fill_disk.sh
#!/bin/bash

mountpoint=/tmp
sleeper=240

# percentage of disk used
function percentage { df $1 | tail -1 | awk '{print $4}' | tr -d % ; }

# Where we'll write
tempdir=$(mktemp -d --tmpdir=${mountpoint})

## mounts2monit.rb
#!/usr/bin/env ruby

# Linux only, sorry.
#
# Look for ext[34], xfs and vxfs. Alter the regexp FILESYSTEMS for others
#
# If you have /root as a separate partition, alter the value of ROOT_USABLE

# Config

## Designer.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace DesignerTest
{
    class Program
    {
	#!/usr/bin/env perl

	# Solution to a question in @gayle's "Cracking the Coding Interview" 5th ed.
	# A child is running up the stairs and can take 1, 2 or 3 steps at a time.
	# Count how many possible ways the child can run up the stairs.
	use strict;
	use warnings;
	use Data::Dumper;

	use feature qw/ say /;
	#!/bin/bash

	# I know it's a bit stupid and there's better ways to do it. But who doesn't like playing.
	# Written for an old CentOS 4 server where people have installed Perl modules any old how.

	# Is there a way to merge the two matches together?

	find /usr//perl5 \| ruby -ne '/^(\/\w+){4}\/.\.pm/.match($_) && puts( /^(\/\w+){4}\/[\.\d]\/{0,1}(.)/.match($_)[2] )'
	#!/bin/bash

	. /lib/lsb/init-functions

	pidofproc "$@" &>> /dev/null

	retval=$?

	# Ignore cases such as retval=3 (Pid file doesn't exist)
	if [ $retval -ne 1 ]
	import org.apache.commons.csv.CSVPrinter
	import org.apache.commons.csv.CSVFormat

	CSVPrinter printer = new CSVPrinter(
	new PrintWriter("test.csv"),
	CSVFormat.DEFAULT
	)

	answer = [ [5,6,"asdf",7],[9,10,"a b","z,x",12]]
	#!/bin/bash

	mountpoint=/tmp
	sleeper=240

	# percentage of disk used
	function percentage { df $1 \| tail -1 \| awk '{print $4}' \| tr -d % ; }

	# Where we'll write
	tempdir=$(mktemp -d --tmpdir=${mountpoint})
	#!/usr/bin/env ruby

	# Linux only, sorry.
	#
	# Look for ext[34], xfs and vxfs. Alter the regexp FILESYSTEMS for others
	#
	# If you have /root as a separate partition, alter the value of ROOT_USABLE

	# Config
	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Text;
	using System.Threading.Tasks;

	namespace DesignerTest
	{
	class Program
	{