Kim Schulz <kim@schulz.dk> writes:
> > > hej jeg har et problem
> > > jeg skal bruge det binære tal system fra decimal 0 - 5000
> > > fra binær til decimal til hex til oktal osv
> >
> > Da du den 4/12 spurgte om det samme i dk.edb.programmering skrev jeg
> > følgende stump kode til dig:
> >
> > $ perl -e 'printf "%o\t%d\t%x\n", $_, $_, $_ for (0 .. 5000);'
>
>
> 0 0 0
> 1 1 1
[...]
> 22 18 12
> [SNIP]
>
> Hvilken af disse er binær
Man kan sige at de to er trivielle at omforme til binær....men det kan
jo være at Peter kan se på et tal i oktal eller hexadecimal form og
for sit indre øje umiddelbart se den binære repræsentation :)
Lavede iøvrigt lige min egen...
perl -e 'for(0..2**16-1){print "$_ = ", (unpack "B*", pack "n", $_) ,"\n"}'
Måske er den lidt langsom...
--
Christian Hemmingsen