Der Code-Schnippsel-Thread

[DosAmp]

Code:

__wdecode() { echo -e $(sed 's/_/ /g; s/%/\\x/g'); }
wikilinks() { wget -qO- [noparse]http://de.wikipedia.org/wiki/$1[/noparse] |\
grep '"/wiki/' | sed 's/.*"\/wiki\/\([^ ]*\)".*/\1/' | grep -v -e ':' -e '$1' |\
sort -u | while read l; do __wdecode <<<$l; done; }

Alle Artikel ausgeben, auf die ein Wikipedia-Artikel verlinkt ist, z. B.

Code:

wikilinks Die_Toten_Hosen

[LukeGee]

Primfaktoren einer Zahl rausfinden:

Code:

#!/usr/bin/perl -w

use strict;

my $arg = undef;

if ( defined($ARGV[0]) ) {
    $arg = $ARGV[0];
} else {
    die("Missing arg!");
}

sub check_prime
{
    my $n = shift;

    for ( my $i = 2; $i <= sqrt($n); $i++) {
        if ( ($n % $i) == 0) {
            return 0;
        }
    }

    return 1;
}

my @factors = ();

my $n = $arg;
my $i = 2;
while ( $i <= $n ) {
    if ( check_prime($i) ) {
        while ( ($n % $i) == 0 ) {
            $n = $n / $i;

            push @factors, $i;
        }
    }

    $i++;
}

print "$arg = " . join(' * ', @factors) . "\n";

[thosch97]

Code:

PROGRAM:WUERFEL
:Lbl A   #:A
:ClrHome   #cls
:Disp randInt(1,6)   #echo <Ganzzahlige zufallszahl zwischen 1 und 6>
:Disp "Weiter: <2"
:Disp "Stop: (GrößerGleich)2"
:Prompt A   #Fragt nach dem Wert der Variable A
:If A(GrößerGleich)2
:Then
:Goto O
:Else
:Goto A
:Lbl O   #:O; angelehnt an Omega

Programmiert auf einem TI-84 Plus - TI-84 Plus – Wikipedia TI-Basic – Wikipedia
Der Kommentar ist entweder eine Erklärung oder der entsprechende DOS-Befehl in Batchdateien.

[DosAmp]

WTF ist bitteschön der Sinn dieses Programms? o_O
Echte BASIC-Oldfags schreiben im Übrigen int (6*rand+1).

[thosch97]

Sieht man doch am Namen!
Und in Excel mach ichs auch so.

[DosAmp]

thosch97 schrieb:  Sieht man doch am Namen!

Oh sry, war ein bisschen blind … ähnliche Programme haben wir immer WUERFELN genannt, dachte das soll geometrische Berechnungen ausführen.

Ein Tipp: Eine einfache Tasten-Warteschleife wie

Code:

:Repeat K≠0
:getKey→K
:End
:If K=105: Goto A

ist einiges eleganter, du musst dafür nur 105 durch den Tastencode für die Enter-Taste (oder welche Taste auch immer) beim TI-84 ersetzen.

[thosch97]

Gut, wusst ich nicht. Wo krieg ich die KCodes her?

[DosAmp]

thosch97 schrieb:  Gut, wusst ich nicht. Wo krieg ich die KCodes her?

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).

Ich glaub, das Schema sollte leicht verständlich sein.

[LukeGee]

Mini-Skript um meine syslog-Ausgabe einzufärben

Code:

#!/usr/bin/perl -w

use strict;

use constant BLANK    => "\e[0m";
use constant RED    => "\e[1;31m";
use constant GREEN    => "\e[1;32m";
use constant YELLOW    => "\e[1;33m";
use constant BLUE    => "\e[1;34m";
use constant MAGENTA    => "\e[1;35m";
use constant CYAN    => "\e[1;36m";
use constant WHITE    => "\e[1;37m";

my ($date, $time, $host, $process, $msg);

while (<STDIN>) {
    if ( m/(\w{3}\s+\d{1,2})\s+(\d{2}:\d{2}:\d{2})\s+([\w\-\.]+)\s+([\w\d\s\-\.\[\]]+):\s+(.+)/ ) {
        $date     = $1;
        $time     = $2;
        $host     = $3;
        $process = $4;
        $msg     = $5;

        if ( m/warning|error|critical|corrupt|bad|exiting|alert/i ) {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, RED, $msg, BLANK);
        } else {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, WHITE, $msg, BLANK);
        }
    }
}

[oreissig]

DosAmp schrieb:  

thosch97 schrieb:  Gut, wusst ich nicht. Wo krieg ich die KCodes her?

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).
[img]
Ich glaub, das Schema sollte leicht verständlich sein.

lol nice, das funktioniert ziemlich genau so, wie das bei meinem Casio GTR ist