Return to math.sh CVS log

Up to [Research Unix] / researchv8dc / cmd / sh

Annotation of researchv8dc/cmd/sh/math.sh, revision 1.1.1.1

1.1       root        1: pr(){
                      2:        echo $#
                      3: }
                      4: add(){
                      5:        echo $*
                      6: }
                      7: mul(){
                      8:        multmp=""
                      9:        for i in $1
                     10:        do
                     11:                multmp="$multmp $2"
                     12:        done
                     13:        echo $multmp
                     14: }
                     15: n(){
                     16:        echo `seq $1 | sed 's/.*/1/'`
                     17: }
                     18: sub(){
                     19:        echo $1 | sed 's/'"$2"'//;s/^ *//'
                     20: }
                     21: factorial(){
                     22:        case "$*" in
                     23:        ""|"1") echo 1
                     24:                ;;
                     25:        *)      mul "$*" "`factorial \`sub \"$*\" 1\``"
                     26:        esac
                     27: }
                     28: fact(){
                     29:        pr `factorial \`n $1\``
                     30: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.