kidd

(defvar erc-read-only-channels
  '("#emacs-es")
  "Lista de canales read-only.")
  
(defun erc-toggle-read-only ()
  (when (member (buffer-name) erc-read-only-channels)
    (toggle-read-only 1)))
  
(add-hook 'erc-join-hook 'erc-toggle-read-only)
  

kidd

#!/usr/bin/perl

use Benchmark qw(:all);
use Algorithm::Loops qw(Filter);


system('rm /tmp/footable.txt');
system('seq 1 2000 >>/tmp/footable.txt') for (1..4);
system('sed -i s/$/_i02_c00\ foo/ /tmp/footable.txt');

kidd

/*
 * =====================================================================================
 *
 *       Filename:  textAsFlood.cpp
 *
 *    Description:  "Utility" to help speed reading trainning 
 *
 *        Version:  0.01
 *        Created:  10/12/2009 11:58:40 PM
 *       Revision:  none

kidd

/*
 * =====================================================================================
 *       Filename:  hello.c
 *         Author:  Raimon Grau Cuscó (rg), raimonster@gmail.com
 * =====================================================================================
 */

#include <omp.h>
#include <stdlib.h>

kidd

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;


my $l;
open my $fh, '<', shift || $0; 
while(<$fh>){
	$l = $_ if /say/;

kidd

#!/bin/bash
var=0
#amixer get Master | grep Left: | sed 's/^.*\[\(.*\)%\].*/\1/'
echo $var
if (test $var = 0) then
        jaj=`amixer get Master | grep Left: | sed 's/^.*\[\(.*\)%\].*/\1/'`
        sed -e 's/^var=[[:digit:]]*$/var='$jaj'/'  vol >.vol2
        amixer set Master 0
else

kidd

(define (build-list n)
  (cond ((= 1 n) (list n))
        (else (append (build-list (- n 1)) (list n) ))))

(define (build-reverse a)
  (cond ((= a 0) (list a))
        (else (cons a (build-reverse (- a 1))))))

(define (my-reverse l)
  (cond ((null? l) '())

kidd

(define (build-list x)
  (define (range a b)
    (if (> a b) '()
        (cons a (range (+ a 1) b))))
  (range 1 x))

(define (my-cool-reverse l)
  (define (my-reverse l1 l2)
    (if (null? l1)
        l2

kidd

#lang scheme
(define (sum l) (foldl + 0 l))

(define max 5)

(define sol (solution 4 5))

(define (solution num max)
  (define (sol num max l)
    (cond ((zero? num) l)

kidd

#!/usr/bin/perl
binmode STDOUT, ":utf8";
use Encode;

my @rev = split '' ,decode_utf8(q|zʎxʍʌnʇsɹbdouɯןʞɾıɥƃɟǝpɔqɐ()'{}|);
my @norm = split '', 'zyxwvutsrqponmlkjihgfedcba)(,}{';
my %h = map {$norm[$_] => $rev[$_]} 0..$#rev;

local $/=undef;   #slurp the whole stdin. you have to quit with ctrl-d or ctrl-c
$_ = <STDIN>;