[alg] letters in woord shufflen

[ajslaghu]

taal onbelangrijk -

het gaat mij erom dat een woord geschut kan worden qua letters. (het liefst zo snel mogelijk, waarschijnlijk valt er een wiskundig trucje toe te passen ).
--> Er hoeft niet zuiver geschud te worden.
--> Er moet wel geschud worden ( dus toevallige schudsels die identiek zijn aan het origineel vallen af)
--> hoge performance, maar leesbaar
-->een letter mag niet op zijn oorspronkelijke plek blijven tenzij niet anders kan.

afspraken: p is begin letter q eindletter.
voorbeeld:
ABC->ABC
ABCD->ACBD
ABCDE-> (ACBDE || ACDBE || ..)

EDIT:
1 p & q zijn char pointers in het woord (of positietellers) , zodat als er mensen met een oplossing komen deze makkelijk gelezen kan worden.
2 FireFly84 ; dat mailtje inderdaad, lijkt me lachen om een paginaatje voor te maken.

[ Voor 24% gewijzigd door ajslaghu op 23-10-2003 22:43 ]

[Verwijderd]

ajslaghu schreef op 23 oktober 2003 @ 22:35:
afspraken: p is begin letter q eindletter.
voorbeeld:
ABC->ABC
ABCD->ACBD
ABCDE-> (ACBDE || ACDBE || ..)

Hier raak ik het kwijt

[Soultaker]

Zoeken op shuffle of schudden:
[rml][ php] random kaarten delen[/rml]
[rml][ php] random een getal maar niet dubbel[/rml]
random elementen uit array halen
[rml][ php]waardes array door elkaar gooien[/rml]
[rml][ Perl] Kaartspel schudden *[/rml]
[rml][ Delphi] kaartspel 21-en ontwerpen.. hellup[/rml]
[rml][ BC3] schudden van een dek kaarten[/rml]
[rml][ DELPHI] Random vraag![/rml]

[Verwijderd]

Heb hier laatst een mailte over gehad. Het schijnt dat als je van een woord de begin en de eindletter op de plek laat staan, en den letters middenin rondschut, je ze gewoon kan blijven lezen

Testje:

IK ben (kut, bij deze wrodeon kan het ntaurujik weer neit) een ggiatnsihce fan van de wbsetie van tawerkes.net

(misschien slecht voorbeeld, gaat om het idee)

[mbravenboer]

Ik denk dat je hiermee bezig bent .

[rml][ PHP] Wat vinden jullie van dit experimentje?[/rml]

[Soultaker]

Oh, dit bedoel je:
[rml][ PHP] Wat vinden jullie van dit experimentje?[/rml]
Lettervolgorde
Plus nog een stuk of 100 andere topics in HK/SG/WL zonder code?

edit: fsck you, mbravenboer! ik was ook op 22:42!

[ Voor 18% gewijzigd door Soultaker op 23-10-2003 22:43 ]

[Verwijderd]

ff simpel in delphi:

Invoer : het gaat mij erom dat een woord geschut kan worden qua letters.
: een letter mag niet op zijn oorspronkelijke plek blijven tenzij niet anders kan
Uitvoer: het gaat mij erom dat een worod gshuect kan wedron qua leretst.
: een ltteer mag niet op zijn oiknpkojslorere plek bleijvn tezinj niet aendrs kan

- Edit: ShuffleWord

Delphi:

function ShuffleWord ( Word : string) : string;
var

 iPos, iIdx, iStart, iEnd : integer;
 cSwap : char;

begin
  Result := Word;
  if length(Word) > 3 then
  begin
    iStart := 2;
    iEnd   := length(Word) - 2;
    for iIdx := iStart to iEnd do
    begin
       repeat
         iPos := round(random(iend)) + 2;
       until iPos <> iIdx;
       cSwap := Word[iIdx];
       Word[iIdx] := Word[iPos];
       Word[iPos] := cSwap;
    end;
  end;
  Result := Word;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
 iIdx, iCnt : integer;
 Line : string;
begin
 iCnt := numentries(Edit1.Text, ' ');
 Line := '';
 for iIdx := 1 to iCnt do
     Line := Line + ShuffleWord(entry(iIdx, Edit1.Text, ' ')) + ' ';
 Edit2.Text := Line;
end;

[ Voor 31% gewijzigd door Verwijderd op 23-10-2003 23:08 ]

[farlane]

Verwijderd schreef op 23 oktober 2003 @ 22:58:
[...]

Waarom wordt 'erom' niet geshuffeld?

[Verwijderd]

foutje, ff checken 4 letter woorden gaan fout

farlane schreef op 23 October 2003 @ 23:03:
[...]


Waarom wordt 'erom' niet geshuffeld?

[.oisyn]

Mja, dit is al vaker voorgekomen dus