NoPaste

Umwandlung Dezimal -> Binär

von heisenberg

SNIPPET_TEXT:
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use warnings;
  5. use 5.020;
  6.  
  7. sub binary {
  8.     my ($n) = @_;
  9.     $n <= 1 ? return $n
  10.            : return binary(int($n/2)).($n%2);
  11. }
  12.  
  13. say binary(@ARGV);

Quellcode

Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN

Verlinken

URL: alles markieren
https://nopaste.debianforum.de/38991

BBCode: alles markieren
[NP]38991[/NP]

LATEST_SNIPPETS