File: src/eMacros/Runtime/Arithmetic/Division.php

Recommend this page to a friend!
  Classes of Emmanuel Antico  >  eMacros  >  src/eMacros/Runtime/Arithmetic/Division.php  >  Download  
File: src/eMacros/Runtime/Arithmetic/Division.php
Role: Class source
Content type: text/plain
Description: Class source
Class: eMacros
PHP LISP language interpreter
Author: By
Last change:
Date: 7 years ago
Size: 839 bytes
 

Contents

Class file image Download
<?php
namespace eMacros\Runtime\Arithmetic;

use
eMacros\Runtime\GenericFunction;

class
Division extends GenericFunction {
   
/**
     * Obtains the result of dividing the first element on a list by the rest of the elements.
     * Usage: (/ 4 2)
     * Special case: (/ 5) = 1/5
     * Returns: number
     * (non-PHPdoc)
     * @see \eMacros\Runtime\GenericFunction::execute()
     */
   
public function execute(array $arguments) {
        if (empty(
$arguments)) {
           
//no parameters
           
throw new \InvalidArgumentException("Division: At least 1 argument is required.");
        }
       
       
//emulate CLISP: (/ 4) = 1/4
       
if (!isset($arguments[1])) {
            return
1 / $arguments[0];
        }
       
       
//get first value
       
$result = array_shift($arguments);
       
        foreach (
$arguments as $value) {
           
$result /= $value;
        }
       
        return
$result;
    }
}

For more information send a message to info at phpclasses dot org.