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     ! 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.