Quick Sort Perl

Run Settings
LanguagePerl
Language Version
Run Command
class Arreglos def solucion() my $n=0; my $c=0; print "Ingrese el tamaño del array: " $n=(gets.chomp).to_i arregloa = []; arreglob = []; for my x in 1..n print "Ingrese valor de a:" $a = gets.to_i arregloa << a end for my x in 1..n print "Ingrese valor de b:" $b = gets.to_i arreglob << $b end print "Valores del arreglo a: ",arregloa. "\n" print "Valores del areeglo b: ",arreglob. "\n" c= arregloa - arreglob print "Valores que se encuentran en a pero no en b: ", c end end obj = Arreglos.new obj.solucion()
Editor Settings
Theme
Key bindings
Full width
Lines