Forum: Programmerings lek

#usr/bin/perl 
 
use warnings;
 
use strict; 
 
 
print "Detta program utför 4 olika beräkningssätt på 2 valfria värden. Dessa beräkningssätt är additon, multiplikation, exponention och tetration. \nVar god skriv in det första värdet: "; 
 
my $firstvalue = <STDIN>;  
 
chomp $firstvalue;
 
print "Var god skriv in värde nummer två: ";
 
my $secondvalue = <STDIN>;
 
chomp $secondvalue;
 
if ($secondvalue == 0){
	print "Operationerna kunde inte utföras eftersom det värdet nummer två är '$secondvalue'. Var god försök igen!";
	}
else{
	my $addition = $firstvalue+$secondvalue;
	my $multiplikation = $firstvalue*$secondvalue;
	my $exponention = $firstvalue**$secondvalue;
	my $tetration = $firstvalue**$firstvalue**$firstvalue;
 
	print "Resultaten av beräkningarna är:\nAddition ger: $addition\nMultiplikation ger: $multiplikation\nExponention ger: $exponention\nTetration ger: $tetration\n";
	}

sub hyper_rek {
	my ($t1, $op, $t2) = @_;
 
	if ($op eq "+") {
		if ($t2 > 0) {return 1 + hyper_rek($t1, $op, $t2-1)}
		else {return $t1}
	}
	elsif ($op eq "*") {
		if ($t2 > 1) {return $t1 + hyper_rek($t1, $op, $t2-1)}
		else {return $t1}
	}
	elsif ($op eq "^") {
		if ($t2 > 1) {return $t1 * hyper_rek($t1, $op, $t2-1)}
		else {return $t1}
	}
	elsif ($op eq "^^") {
		if ($t2 > 0) {return $t1 ** hyper_rek($t1, $op, $t2-1)}
		else {return $t1}
	}
}

use strict;
use warnings;
 
print "\t".hyper_rek($ARGV[0], $ARGV[1], $ARGV[2])."\n";

#!/usr/bin/env python
 
def hyper1(val, times):
    if times == 0:
        return val
    else:
        return val + hyper1(1, times - 1)
 
def hyper2(val, times):
    if times == 1:
        return val
    else:
        return val + hyper2(val, times - 1)
 
def hyper3(val, times):
    if times == 1:
        return val
    else:
        return val * hyper3(val, times - 1)
 
def hyper4(val, times):
    if times == 1:
        return val
    else:
        return val ** hyper4(val, times - 1)
 
def metahyper(int_a, int_b, fn):
    return fn(int_a, int_b)
 
# Test printouts live here.
print metahyper(5, 3, hyper1)
print metahyper(5, 3, hyper2)
print metahyper(5, 3, hyper3)
print metahyper(5, 3, hyper4)

hyper a 1 b = a+b
hyper a n 1 = a
hyper a n b = hyper a (n-1) (hyper a n (b-1))

#!/usr/bin/env python
# -*- coding: utf-8 -*-
 
 
__all__ = ['hyper']
 
def hyper(tal1, grad, tal2):
    """Implementerar godtyckliga hypern-operatorer
 
    Facit hämtat från http://en.wikipedia.org/wiki/Knuth%27s_up-arrow_notation#Tables_of_values
    >>> [hyper(2, x, 1) for x in range(2, 7)]
    [2, 2, 2, 2, 2]
    >>> [hyper(2, x, 2) for x in range(2, 7)]
    [4, 4, 4, 4, 4]
    >>> [hyper(2, x, 3) for x in range(2, 5)]
    [6, 8, 16]
    >>> [hyper(2, x, 4) for x in range(2, 4)]    [8, 16]
    >>> [hyper(2, x, 5) for x in range(2, 4)]
    [10, 32]
 
    >>> [hyper(3, x, 1) for x in range(2, 7)]
    [3, 3, 3, 3, 3]
    >>> [hyper(3, x, 2) for x in range(2, 5)]
    [6, 9, 27]
    >>> hyper(3, 3, -1)
    Traceback (most recent call last):
      File "<stdin>", line 1, in ?
    ValueError: Tal2 är mindre än 0
    >>> hyper(3, -1, 2)
    Traceback (most recent call last):
      File "<stdin>", line 1, in ?
    ValueError: Graden är mindre än 0
    >>> hyper(-1, 3, 42)
    Traceback (most recent call last):
      File "<stdin>", line 1, in ?
    ValueError: Tal1 är mindre än 0
    """
    if tal1 < 0:
        raise ValueError, "Tal1 är mindre än 0"
    if grad < 0:
        raise ValueError, "Graden är mindre än 0"
    if tal2 < 0:
        raise ValueError, "Tal2 är mindre än 0"
    return _hyper(tal1, grad, tal2)
 
def _hyper(tal1, grad, tal2):
    if grad == 0:
        return tal2 + 1
    elif tal2 == 0:
        if grad == 1:
            return tal1
        elif grad == 2:
            return 0
        else:
            return 1
    else:
        return _hyper(tal1, grad - 1, _hyper(tal1, grad, tal2 - 1))
 
if __name__ == "__main__":
    import doctest
    doctest.testmod()