Shell Programming and Scripting

echo "hello" | ran 
leolh

echo hello | fold -w 1 | sort -r | tr -d '\n';echo

ollhe

jeppe@space:/$ while :;do echo "palindrom" | fold -w 1 | shuf | tr -d '\n';echo;done
daipmonrl
rlmipdaon
mpriladon
aiomrplnd
lnpraiomd
nidlpraom
ilmpadnro
rodnlamip
odapnimrl
riodlmanp
oadpimrnl
...etc.

#! /usr/bin/perl -w
use strict;

my $string = "hello";
my @x = split '', $string;
fisher_yates_shuffle( \@x );
print @x;

sub fisher_yates_shuffle {
    my $deck = shift;
    return unless @$deck;
    my $i = @$deck;
    while (--$i) {
        my $j = int rand ($i+1);
        @$deck[$i,$j] = @$deck[$j,$i];
    }
}

#!/bin/bash
#anagramfinder
while :
do
WORD=$(shuf -n 1 /data/korpus2k/kord)
AG=$(echo "$WORD" | fold -w 1 | sort -R | tr -d '\n';echo)
CHECK=$(grep -w "$AG" /data/korpus2k/kord | wc -l)
	if [ "$CHECK" -eq "0" ]
	then true
	elif [ "$WORD" = "$AG" ]
	then true	
	else  
	echo "$WORD" "$AG"			
	fi
done