Scripting Contest

[inne]

Müssen wir mit der Abgabe wirklich noch bis Ende März warten – bis dahin habe ich ja vergessen, dass es einen Scripting Contest gibt?

Nein! Ich wäre auch fertig!

Wollen wird dann bis nächsten So. (7. März) noch warten (Damit die anderen es auch mitbekommen) und dann unsere Lösungen zeigen?
Auf die Zusatzaufgaben bin ich sehr gespannt, was andere wohl so gezählt haben. Und ob es eine favorisierte Programmiersprache für Mathematik gibt.

Anders könnten wir auch bis zum 31. März nur die Zusatz aufgaben zeigen

[eggy]

@inne: ja gibt es, die ist aber alles andere als mein Favorit, sogar ziemlich genau das Gegenteil davon
schade, dass es keinen spoilertag gibt, ich schick Dir den Link mal per pm

[inne]

Danke für die PN, man beachte auch den Beiträge von heisenberg zur Aufgabe "rtgen" damals.

[heinz]

Hallo Zusammen,

jetzt da der "Abgabetermin" naeherrueckt, fallt mir noch eine Frage zur Aufgabenstellung ein.

Aufgabe: Berechnen der Fibonacci-Folge bis zu einem vom User gegebenen Wert.

Was genau ist dieser Wert?
Ist es die Soundsovielte Fibunacci-Zahl?
z.B.
WERT=7
Fibunacci-Zahl=13

Oder die naechst kleinere Fibunacci-Zahl in der naehe von WERT?
z.B.
WERT=1000
Fibunacci-Zahl=987

Gruss,
heinz

[inne]

Ich ermittel die Fibonacci-Folge bis Fibonacci-Zahl >= Zahl und geben dann Ja Zahl ist ein Fibonacci-Zahl oder Nein Zahl ist keine Fibonacci-Zahl aus. Wobei ich es erlaube, beliebig viele Zahlen an das Skript zu übergeben. Optimal ist meine Lösung nicht unbedingt, weil ich die komplette Fibonacci-Folge im Speicher behalte.

jetzt da der "Abgabetermin" naeherrueckt,

Der 31. war wohl doch etwas zu weit hin von mir.

[smutbert]

An der Stelle kann ich mir nicht verkneifen darauf hinzuweisen, dass der Name des Herrn Fibunacci soweit ich weiß Leonardo Fibonacci war ☺

[heinz]

Ich ermittel die Fibonacci-Folge bis Fibonacci-Zahl >= Zahl und geben dann Ja Zahl ist ein Fibonacci-Zahl oder Nein Zahl ist keine Fibonacci-Zahl aus.

Alles klar...

dass der Name des Herrn Fibunacci soweit ich weiß Leonardo Fibonacci war ☺

Ups... sorry... Hast natürlich recht...
Zu meiner Verteidigung:
Im Script hab ich es zu 99% richtig...

Gruss,
heinz

[smutbert]

So, jetzt ist der Abgabetermin verstrichen, oder?
(Es hat aber auch niemand etwas gesagt ☺)

Naja, es nie zu früh und selten zu spät - oder so ähnlich. Bei mir ist diese mir offensichtlich scheinende Lösung herausgekommen:

Code: Alles auswählen

                                           
#!/bin/sh

previous=0
current=1

if ! test "${1}" -gt 0; then
        echo "Ganze Zahl größer 0 erwartet."
        exit 1
fi

while test ${current} -le ${1}; do
        echo ""
        echo -n "${current}"
        new_current=$(echo "${current} + ${previous}" | bc)
        previous=${current}
        current=${new_current}
done

if test ${previous} -eq ${1}; then
        echo " ist eine Fibonacchi-Zahl."
        exit 0
else
        echo "Die angebene Zahl ${1} ist keine Fibonacchi-Zahl."
        exit 2
fi

[inne]

Ok, ich suche meins dann auch mal raus.

Zu deinem (ich habe es als /tmp/foo.sh abgespeichert):

Code: Alles auswählen

$ bash /tmp/foo.sh 9999999999999999999
/tmp/foo.sh: Zeile 6: test: 9999999999999999999: Ganzzahliger Ausdruck erwartet.
Ganze Zahl größer 0 erwartet.

Meins kann schon mal viel viel größere Zahlen prüfen

[heinz]

Aehnlich sah meine Loesung zuerst auch aus aber die Geschwindigkeit und die Probleme bei Zahlen > 64bit int brachten mich dann zu dieser Loesung:

Code: Alles auswählen

#!/bin/bash
#
# Aufgabe: von inne >> 15.02.2021 08:22:43
# Berechnen der Fibonacci-Folge bis zu einem vom User gegebenen Wert.
# Schreibe ein Skript das die Fibonacci-Folge bis zu einem vom Benutzer
# angebenden Wert berechnet und pr.fe ob der Wert eine Fibonacci-Zahl ist.
# R.ckgabewert soll 0 bei ja und nicht 0 bei nein sein.
#
# Loesung von heinz
#
# bc rechnet so lange Fibonacci-Zahlen aus, bis eine Zahl groesser als der
# eingegebene Wert ist.
# Danach wird die Zahl ausgegeben und getestet, ob sie eine Fibonacci-Zahl ist.
#



# Wurde ein Wert uebergeben?
if test -z "$1"
then
    echo -e "\a\n${0##*/} MAX-WERT\n"
    exit 1
else
# Ist uebergebener Wert eine Zahl?
    if test -n "$(tr -d [:digit:] <<<"$1")"
    then
        echo -e "\a\nEs duerfen nur ganze Zahlen angegeben werden!\n"
        exit 1
    fi
fi



# Fibonacci-Zahl berechnen
ergebnis=$(echo "
    wert=$1

    a=1
    b=0
    c=0
    stelle=1

    while (wert > c)
    {
    c=a+b
    a=b
    b=c
    stelle=stelle+1
    print c,\"\n\"
    }

    quit
"|bc|tr -d ' \\')

# Ergebnis ausgeben
echo "$ergebnis"



# Ergebnis testen
rueckgabe=$(echo "
    wert=$1

    a=1
    b=1
    c=0
    stelle=2

    while (c < wert)
    {
    c=a+b
    a=b
    b=c
    stelle=stelle+1
    }
    
    if (b == wert) print 0
    
    quit
"|bc)
    
# Rueckgabe 0=Ergebnis ist eine Fibonacci-Zahl, 1=Ergebnis ist keine Fibonacci-Zahl
exit ${rueckgabe:-1}

Musste meines nochmal anpassen, um den gleichen Output wie bei Euch zu erhalten.

[inne]

Meine Lösung:

Code: Alles auswählen

#!/usr/bin/env perl
# Fibonacci-Folge

use bignum;
use diagnostics;
use locale;
use strict;
use utf8;
use warnings;

binmode( STDIN,  ":encoding(UTF-8)" );
binmode( STDOUT, ":encoding(UTF-8)" );
binmode( STDERR, ":encoding(UTF-8)" );

# Zahlen aufsteigend sortieren, damit die letzte in der Liste die größte
# ist: $numbers[-1] # largest number

my @numbers = sort { $a <=> $b } ( (@ARGV) ? @ARGV : <STDIN> );

# Anfang der Fibonacci-Folge
my @fibonaccis = ( 0, 1 );

print "Fibonacci-Folge:\n";
print "@fibonaccis\n";

# Fibonacci-Folge bis zur größten Zahl s.o. weiterführen

while ( $fibonaccis[-1] < $numbers[-1] ) {
    push @fibonaccis, $fibonaccis[-2] + $fibonaccis[-1];
    print $fibonaccis[-1], "\n";
}

print "…\n";

# Zahl darauf hin prüfen, ob diese in der Fibonacci-Folge vorkommt und
# es sich somit um eine Fibonacci-Zahl handelt.

my $founds;
for my $number (@numbers) {
    chomp $number;
    if ( grep { $_ eq $number } @fibonaccis ) {
        print "Ja; $number ist eine Fibonacci-Zahl 😇\n";
        $founds++;
    }
    else {
        print "Nein; $number ist keine Fibonacci-Zahl 😈\n";
    }
}

exit !$founds;

Anwenundgen damit (Zusatzaufgabe):

Code: Alles auswählen

perl fibonacci.pl $(dpkg -l | grep ^ii | wc -l) | tail -1

Code: Alles auswählen

dpkg-query -W -f='${Package}\n' | while read; do echo $REPLY; perl fibonacci.pl $(dpkg -L $REPLY | wc -l) | tail -1; done | \grep -B 1 "ist eine"

Code: Alles auswählen

dpkg-query -W -f='${Package}\n' | while read; do echo $REPLY; perl fibonacci.pl $(dpkg -L $REPLY | wc -l) | tail -1; done | \grep "ist eine" | wc -l

Code: Alles auswählen

perl fibonacci.pl $(find / | wc -l) | tail -1

Code: Alles auswählen

$ cat ~/Dokumente/Computa/perl/bin/fibonacci-filecounts.bash 
#!/bin/bash
# With help from AWK people :-)

find "$1" 2>/dev/null | while read; do
	file -b --mime-type "$REPLY";
done | sort | uniq -c | awk '
{
	printf("%s: ", $0);

	# We must use a seperate file-descriptor for every call of the function /system/ (pipe)
	cmd=sprintf ("/usr/bin/env perl ./fibonacci.pl %d | tail -1", $1);
	cmd | getline l;
	close(cmd);

	# Instead of simply run this; that does not work at this point ;-)
	#sprintf ("/usr/bin/env perl ./fibonacci.pl %d | tail -1", $1) | getline l;

	print l;
}'

[thoerb]

Mein Lösung ist ähnlich der von @smutbert.

Code: Alles auswählen

#!/usr/bin/python3
import sys

z = int(sys.argv[1])
a = 0
b = 1
fz = 0

while fz <= z:
	print(fz)
	fz = a + b
	a = b
	b = fz

if (a == z):
	print (z, "ist eine Fibonacci-Zahl")
else:
	print (z, "ist keine Fibonacci-Zahl")

[Huo]

@thoerb: Schöne Lösung! Auf die Hilfsvariable fz kannst Du allerdings verzichten, was dem Code einen noch eleganteren Anstrich verleiht.

Code: Alles auswählen

#!/usr/bin/python3
import sys

z = int(sys.argv[1])
a = 0
b = 1

while b <= z:
    print(b)
    a, b = b, a + b

if (a == z):
    print (z, "ist eine Fibonacci-Zahl")
else:
    print (z, "ist keine Fibonacci-Zahl")

[thoerb]

Auf die Hilfsvariable fz kannst Du allerdings verzichten, was dem Code einen noch eleganteren Anstrich verleiht.

Stimmt!

[tobo]

[...]einen noch eleganteren Anstrich verleiht.

Da wäre (neben der Initialisierung) weiter unten auch noch Potenzial:

Code: Alles auswählen

print("{} ist {} Fibonacci-Zahl".format(z, "eine" if a==z else "keine"))

[smutbert]

python ist ja so cool

Code: Alles auswählen

print("{} ist {}eine Fibonacci-Zahl".format(z, "" if a==z else "k"))

[Phineas]

Wie wäre es denn mit einer Fleißarbeit? Ich stelle mir einen Rentenrechner vor: Rentendatum und Bundesland eingeben und das Skript berechnet, wieviele Arbeitstage es noch bis zur Rente sind.

(Ja: Ich war mal Wehrpflichtiger.)

[reox]

python ist ja so cool

python wird immer cooler

Code: Alles auswählen

print(f"{z} ist {'' if a == z else 'k'}eine Fibonacci-Zahl")

[inne]

Hallo,

ich hätte eine Idee für eine neue Aufgabe, aber ich weiss nicht so recht, ob es so viel Sinn macht diese als Skript zu Lösen oder doch besser als Programm in C.

Die Aufgabe wäre: Wandle ein Zeichenkette, die eine gültige Zahl in Dezimalschreibweise enthält (also z.B. "123.056"), in einen double Wert um. Nun haben Skriptsprachen i.d.R. keine Typenunterscheidung in dem Sinn. Deswegen die Frage nach dem Sinn.
Was denkt ihr? Natürlichen wären Funktionen wie int oder atoi usw. tabu, wo bei ich diese auch einmal nutze im Grunde, weil es damit weniger Code ist. Es ginge auch ohne.

[Meillo]

Eine Umsetzung mit scanf(3) ist simpel.

Wenn man es von Hand machen soll (d.h. z.B. Einlesen nur mit getchar(3)), dann stellt sich (fuer den professionellen Programmierer) hoffentlich gleich Frage, wie es sich mit der Problematik von Rundungsfehlern bei Fliesskommazahlen verhaelt. Aber vielleicht vernachlaessigen wir dieses Thema zunaechst einmal. Dann finde ich das eine gute Aufgabe ... weniger eine Scriptingaufgabe als eine Rechnenaufgabe aber dennoch eine gute Fingeruebung.

[inne]

Eine Umsetzung mit scanf(3) ist simpel.

Auch tabu

Du hast ganz recht, es geht wenn um die Mathematik dahinter!

Also bist Du dabei, dann gilt es die Aufgabe bis zum Sonntag den 9. Juli zu Lösen, oder später? Das wäre dann eine Woche und Sonntag als Stichtag. Und ich sage mal der Einfachheit halber sind auch Skripte erlaubt solange man erkennt, dass nicht "geschummelt" wurde.

[Meillo]

Ich habe eine Loesung in C fertig. Die poste ich dann ab dem Abgabedatum.

Kannst du bitte noch Beispielinput und -output bereitstellen, damit man sein Programm testen kann und unserer Programme einigermassen einheitlich und vergleichbar werden.

[inne]

Code: Alles auswählen

sol 123.056
123.056 ist 123.056

Das sol steht für Solution und ist der Kommandoaufruf, mit Eingabewert als Zeichenkette.

Hast Du aus der Standardbibliothek kopiert, ich bin gespannt ob meine Lösung dann im Vergleich doch nichts taugt

[TRex]

Und dann geb ich das als String aus.

[Meillo]

Die weitere Diskussion zur Umsetzung in C und Fragen dazu welche Zahlen wie erkannt werden sollen ist nach viewtopic.php?t=184511 abgespalten worden.