#!/usr/bin/perl

use 5.038.2;

my $explanation =<<EOT;

El número de Avogadro es una
constante fundamental en química que representa el número de partículas elementales (átomos, moléculas, iones) en un mol de sustancia,
siendo su valor exacto 6,02214076 × 10²³ (o aproximadamente 6.022 × 10²³ unidades/mol). Este número establece el vínculo entre la
escala microscópica de átomos y la escala macroscópica que podemos medir, como gramos, y es crucial para convertir entre masa y
cantidad de partículas.

EOT
;  

print $explanation;

use bignum;


my $numberfloat = 6.02214076;
my $dimension = 1 * 10** 23;


my $printablenum = $numberfloat * $dimension;

say $printablenum, "\n";

my @digits = split // , $printablenum;

for (@digits){
    if ( $_ =~ /0+$/ ){	
	print "-";
    }else{
	print " ";
    }
}

print " la parte no medida ni explicada, no justifica que cualquier cosa exista o sea significante.\n"; 
say "Es decir, $printablenum frente a $dimension representa";
say "un ", 100 * (10 ** (23 - 9)) / $printablenum , " % (a 0j0 cienmillonésimas porcentuales)\n";

exit 3;