HOLA:
Esto sigue siendo Vbscript (mientras aprendo algo de ASM)
Tal vez sea redundante y hasta trivial pero tal vez por lo mismo es sencillo o simple ( Yo creo que no puede haber nada mas simple)
Me comprometo a que cuando sepa lo suficiente de ASM posteare el codigo en este lenguaje.
XOR - AND
' Script
'=====================================================
'Guardar como COLN.vbs
' Ejecutar en Consola (cmd.exe)
' Invocandolo con cscript.exe clon.vbs
'=================================================
dim a()
dim b()
wscript.echo vbtab & vbtab & "ALGORITMO CL.O.N. ( CLasificacion por Orden Natural)" & vbcrlf
wscript.echo "Redundante y trivial, pero rapido, exacto y estable - O(n) "
wscript.echo "Desarrollado por TOMAS XORDAN (Xor -And)"
wscript.echo "Informes :
xordan_co@yahoo.com"
wscript.stdout.write vbcrlf & vbcrlf & "Cuantos numeros desea ordenar ? "
q= wscript.stdin.readline
wscript.echo vbcrlf & "Se estan generando al azar " & q & " numeros positivos enteros " & vbcrlf
redim a(q)
Randomize
For n = 0 To q
a(n)= Int(q*Rnd)
wscript.stdout.write a(n) & "-"
Next
Wscript.echo "Estos son los mismos " & q & " numeros ya clasificados en orden natural : " & vbcrlf
For x= 0 to ubound(
u= b(x)
If u > 0 Then
For y = 1 To u
wscript.stdout.write x & "-"
Next
End if
u=0
Next
wscript.stdout.write vbcrlf
