// Sortowanie Pozycyjne
//---------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <time.h>

using namespace std;

// ilość elementów
const int N = 160;
// maksymalna wartość elementu
const int MAXEL = 999;

// Procedura sortująca
void Sortuj(unsigned z1[],
            unsigned z2[],
            unsigned m)
{
  unsigned L[2],i;

  L[0] = L[1] = 0;
  for(i = 1; i <= N; i++)
    L[(z1[i] & m) > 0]++;
  L[1] += L[0];
  for(i = N; i >= 1; i--)
   z2[L[(z1[i] & m) > 0]--] = z1[i];
}

int main()
{
  unsigned d[N+1],b[N+1],i,m;

  cout << " Sortowanie pozycyjne\n"
          "----------------------\n"
          "(C)2005 Jerzy Walaszek\n\n"
          "Przed sortowaniem:\n\n";

  // Generujemy pseudolosową
  // zawartość zbioru d[]
  srand((unsigned)time(NULL));
  for(i = 1; i <= N; i++)
  {
    d[i] = rand() % (MAXEL + 1);
    cout << setw(4) << d[i];
  }
  cout << endl << endl;

  // Ustawiamy maskę na najmłodszy bit
  m = 1;

  // Sortujemy
  while(m <= MAXEL)
  {
    Sortuj(d,b,m); m <<= 1;
    Sortuj(b,d,m); m <<= 1;
  }

  // Wyświetlamy wyniki
  cout << "Po sortowaniu:\n\n";
  for(i = 1; i <= N; i++)
    cout << setw(4) << d[i];
  cout << endl << endl;
  system("pause");
  return 0;
}

// Sortowanie Pozycyjne
//---------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

program RadixSort;

const
  // ilość elementów
  N = 160;
  // maksymalna wartość elementu
  MAXEL = 999;

type
  TZbior = array[1..N] of cardinal;

// Procedura sortująca
procedure Sortuj(var z1,z2 : TZbior;
                     m : cardinal);
var
  L : array[boolean] of cardinal;
  i : cardinal;
  t : boolean;
begin
  L[false] := 0; L[true] := 0;
  for i := 1 to N do
    inc(L[(z1[i] and m) > 0]);
  inc(L[true], L[false]);
  for i := N downto 1 do
  begin
    t := (z1[i] and m) > 0;
    z2[L[t]] := z1[i];
    dec(L[t]);
  end;
end;

var
  d,b : TZbior;
  i   : integer;
  m   : cardinal;

begin
  writeln(' Sortowanie pozycyjne');
  writeln('----------------------');
  writeln('(C)2005 Jerzy Walaszek');
  writeln;

  // Generujemy pseudolosową
  // zawartość zbioru d[]
  randomize;
  for i := 1 to N do
    d[i] := random(MAXEL + 1);
  writeln('Przed sortowaniem:');
  writeln;
  for i := 1 to N do
    write(d[i]:4);
  writeln;
  writeln;

  // Ustawiamy maskę na najmłodszy bit
  m := 1;

  // Sortujemy
  while m <= MAXEL do
  begin
    Sortuj(d,b,m);
    m := m shl 1;
    Sortuj(b,d,m);
    m := m shl 1;
  end;

  // Wyświetlamy wyniki
  writeln('Po sortowaniu:');
  writeln;
  for i := 1 to N do
    write(d[i]:4);
  writeln;
  writeln;
  writeln('Nacisnij Enter...');
  readln;
end.

' Sortowanie Pozycyjne
'---------------------
' (C)2012 mgr Jerzy Wałaszek
' I Liceum Ogólnokształcące
' w Tarnowie

' ilość elementów
CONST N = 160
' maksymalna wartość elementu
CONST MAXEL = 999

' Procedura sortująca
DECLARE SUB Sortuj(z1() AS UINTEGER, _
                   z2() AS UINTEGER, _
                   BYVAL m AS UINTEGER)
                   
SUB Sortuj(z1() AS UINTEGER, _
           z2() AS UINTEGER, _
           BYVAL m AS UINTEGER)

  DIM AS UINTEGER L0,L1,i
  
  L0 = 0: L1 = 0
  FOR i = 1 TO N
    IF (z1(i) AND m) > 0 THEN
      L1 += 1
    ELSE
      L0 += 1
    END IF
  NEXT
  L1 += L0
  FOR i = N TO 1 STEP -1
    IF (z1(i) AND m) > 0 THEN
      z2(L1) = z1(i)
      L1 -= 1
    ELSE
      z2(L0) = z1(i)
      L0 -= 1
    END IF
  NEXT
END SUB

DIM AS UINTEGER d(N),b(N),i,m

PRINT " Sortowanie pozycyjne"
PRINT "----------------------"
PRINT "(C)2005 Jerzy Walaszek"
PRINT

' Generujemy pseudolosową
' zawartość zbioru d()

RANDOMIZE
FOR i = 1 TO N
  d(i) = INT(RND(1) * (MAXEL + 1))
NEXT
PRINT "Przed sortowaniem:"
PRINT
FOR i = 1 TO N
  PRINT USING "####"; d(i);
NEXT
PRINT
PRINT

' Ustawiamy maskę na najmłodszy bit
m = 1

' Sortujemy
WHILE m <= MAXEL
  Sortuj(d(),b(),m)
  m = m SHL 1
  Sortuj(b(),d(),m)
  m = m SHL 1
WEND

' Wyświetlamy wyniki
PRINT "Po sortowaniu:"
PRINT
FOR i = 1 TO N
  PRINT USING "####"; d(i);
NEXT
PRINT
PRINT
PRINT "Nacisnij dowolny klawisz..."
SLEEP
END

# Sortowanie Pozycyjne
#---------------------
# (C)2026 mgr Jerzy Wałaszek
# I Liceum Ogólnokształcące
# w Tarnowie

import random

# ilość elementów
n = 160
# maksymalna wartość elementu
maxel = 999

# Procedura sortująca
def sortuj(z1,z2,m):
    l = [0,0]
    for i in range(1,n+1):
        l[(z1[i] & m) > 0] += 1
    l[1] += l[0]
    for i in reversed(range(1,n+1)):
        z2[l[(z1[i] & m) > 0]] = z1[i]
        l[(z1[i] & m) > 0] -= 1

d = [random.randrange(maxel+1) for _ in range(n+1)]
b = [0] * (n + 1)

print(" Sortowanie pozycyjne")
print("----------------------")
print("(C)2026 Jerzy Wałaszek")
print()
print("Przed sortowaniem:")
print()

for i in range(1,n + 1):
    print("%4d" % d[i],end="")
print()
print()

# Ustawiamy maskę na najmłodszy bit
m = 1

# Sortujemy
while m <= maxel:
    sortuj(d,b,m)
    m <<= 1
    sortuj(b,d,m)
    m <<= 1

# Wyświetlamy wyniki
print("Po sortowaniu:")
print()
for i in range(1,n + 1):
    print("%4d" % d[i], end="")
print()
print()
input("Naciśnij Enter...")

<html>
  <head>
  </head>
  <body>
    <form style="BORDER-RIGHT: #ff9933 1px outset;
                 PADDING-RIGHT: 4px; BORDER-TOP: #ff9933 1px outset;
                 PADDING-LEFT: 4px; PADDING-BOTTOM: 1px;
                 BORDER-LEFT: #ff9933 1px outset; PADDING-TOP: 1px;
                 BORDER-BOTTOM: #ff9933 1px outset;
                 BACKGROUND-COLOR: #ffcc66" name="frmradixsort">
      <h3 style="text-align: center">Sortowanie Pozycyjne</h3>
      <p style="TEXT-ALIGN: center">
        (C)2012 mgr Jerzy Wałaszek - I LO w Tarnowie
      </p>
      <hr>
      <p style="TEXT-ALIGN: center">
        <input onclick="main()" type="button" value="Sortuj" name="B1">
      </p>
      <p id="t_out" style="TEXT-ALIGN: center">...</p>
    </form>

<script language=javascript>

// Sortowanie Pozycyjne
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

var N     =  80; // ilość elementów
var MAXEL = 999; // maksymalna wartość elementu

// Procedura sortująca

function Sortuj(z1,z2,m)
{
  var L0,L1,i;

  L0 = L1 = 0;
  for(i = 1; i <= N; i++) if((z1[i] & m) > 0) L1++; else L0++;
  L1 += L0;
  for(i = N; i >= 1; i--)
    if((z1[i] & m) > 0) z2[L1--] = z1[i]; else z2[L0--] = z1[i]; 
}

function main()
{
  var d = new Array(N + 1);
  var b = new Array(N + 1);
  var i,m,t;

  t = "Przed sortowaniem:<BR><BR>";

// Generujemy pseudolosową zawartość zbioru d[ ]

  for(i = 1; i <= N; i++)
  {
    d[i] = Math.floor(Math.random() *(MAXEL + 1));
    t += " " + d[i];
  }

// Ustawiamy maskę na najmłodszy bit

  m = 1;

// Sortujemy

  while(m <= MAXEL)
  {
    Sortuj(d,b,m); m <<= 1;
    Sortuj(b,d,m); m <<= 1;
  }

// Wyświetlamy wyniki

  t += "<BR><BR>Po sortowaniu:<BR><BR>";
  for(i = 1; i <= N; i++) t += " " + d[i];
  document.getElementById("t_out").innerHTML = t;
}

</script> 

  </body>
</html>