realeroberto

proc x {} { set y "x" }

# let's try it...
#
#   % x
#   x
#   % [x]
#   x
#   % [[x]]
#   x

realeroberto

#!/bin/bash -

PROGRAM="${0##*/}"

IFS="."
for i in $(cat /proc/uptime)
do
  UPTIME=$i
  break
done

realeroberto

#!/bin/sh

username=

curl -s https://api.github.com/users/$username/repos | jq -r '.[].git_url' | while read git_url
do
        repo_name=$(basename $git_url .git)
        echo Backing up $repo_name
        git clone -q $git_url 2> /dev/null || (
                cd $repo_name

realeroberto

#!/bin/bash

# Convert a file mode string (e.g., -rw-rw-r--) into the octal value

function perm2octal()
{
  local perm=${1:1} # remove first char (the file type)

  res=$(echo "$perm" | sed 's/[^-]/1/g; s/-/0/g')
  res=$(echo "ibase=2; obase=8; $res" | bc)

realeroberto

#!/bin/sh

# create a tarball from inside a folder
dirname=$(cat PROJECT)-$(cat VERSION)
tarball=${dirname}.tar.gz

# avoid tar's error message ``file changed as we read it''
touch "$tarball"

tar cfz "$tarball"                     \

realeroberto

BEGIN
   FOR cur_rec IN (SELECT object_name, object_type
                     FROM user_objects
                    WHERE object_type IN
                             ('TABLE',
                              'VIEW',
                              'PACKAGE',
                              'PROCEDURE',
                              'FUNCTION',
                              'SEQUENCE',

realeroberto

Keybase proof

I hereby claim:

• I am reale on github.
• I am reale (https://keybase.io/reale) on keybase.
• I have a public key ASC7prRw88qck0mao3uzp2TtsM1ZxhzzIMwGA62Z1s7llAo

To claim this, I am signing this object:

realeroberto

#!/usr/bin/tclsh

#
# approximate e using the power series expansion
#

proc approx_e {{n 20}} {
    set value 1
        set factorial 1
        set i 1

realeroberto

#!/usr/bin/tclsh

# we need Tcl 8.5 for lrepeat to be defined
package require Tcl 8.5

#
# recursively calculate Chebyshev polynomials
#
#   (see http://en.wikipedia.org/wiki/Chebyshev_polynomials)
#

realeroberto

#!/usr/bin/tclsh

#
# approximate PI with the aid of Wallis' product
#

proc wallis {{n 1000000}} {
    set value 1.0
    set i 1