Tulis fungsi terpendek untuk mengubah alamat IP menjadi representasi integernya dan output sebagai integer.

Untuk mengubah alamat IPv4 ke representasi integernya, perhitungan berikut diperlukan:

• Pisahkan alamat IP menjadi empat oktet.
• (Octet1 * 16777216) + (Octet2 * 65536) + (Octet3 * 256) + (Octet4)

Input Sampel

192.168.1.1           10.10.104.36           8.8.8.8

Output Sampel

3232235777            168454180              134744072

PHP - 21 Karakter

<?=ip2long($argv[1]);

MySQL - 20 Karakter

SELECT INET_ATON(s);

Ruby (tanpa builtin / eval) - 47

s=->s{s.split(".").inject(0){|a,b|a<<8|b.to_i}}

Uji:

s["192.168.1.1"]
3232235777

C: 79 karakter

main(i,a)char**a;{i=i<<8|strtol(a[1],a+1,0);*a[1]++?main(i,a):printf("%u",i);}

EDIT: dihapus C ++, tidak akan dikompilasi tanpa header; dengan GCC, theprintf dan strtolpemanggilan fungsi memicu fungsi bawaan, karenanya tajuk dapat dilewati. Terima kasih kepada @ugoren untuk tipsnya. Ini akan dikompilasi apa adanya tanpa opsi tambahan untuk gcc.

EDIT2: returnsebenarnya berlebihan :)

Golfscript - 16 karakter

{[~]2%256base}:f

Sebagai program mandiri, ini bahkan lebih pendek yaitu 11.

~]2%256base

Sangat mudah. Mengevaluasi string input ( ~) dan memasukkannya ke dalam array []. Karena .s dalam string menduplikasi bagian atas tumpukan, kami hanya mengambil setiap istilah lain dalam array ( 2%). Kami sekarang memiliki array yang pada dasarnya mewakili angka 256 basis, jadi kami menggunakan fungsi bawaan untuk melakukan konversi. ( 256base).

Befunge - 2x11 = 22 karakter

Begitu dekat, Befunge akan menang suatu hari.

>&+~1+#v_.@
^*4*8*8<

Penjelasan

Fitur pembeda terbesar dari Befunge adalah bahwa alih-alih menjadi seperangkat instruksi linier seperti kebanyakan bahasa; itu adalah kotak 2d instruksi karakter tunggal, di mana kontrol dapat mengalir ke segala arah.

>      v
^      <

Karakter-karakter ini mengubah arah kontrol ketika mereka dipukul, ini membuat loop utama.

 &+~1+

Ini memasukkan angka dan mendorongnya ke tumpukan ( &), mengeluarkan dua nilai teratas dari tumpukan, menambahkannya dan mendorongnya kembali ke tumpukan ( +), memasukkan satu karakter dan menempatkan nilai ascii pada tumpukan ( ~), lalu mendorong 1 ke tumpukan dan menambahkannya ( 1+).

Penerjemah yang saya gunakan mengembalikan -1 untuk akhir input, beberapa mengembalikan 0 sehingga 1+bagian dapat dihapus untuk mereka.

      #v_.@

The #menyebabkan karakter berikutnya akan dilewati, maka _muncul nilai dari tumpukan dan jika itu adalah nol mengirimkan kontrol yang tepat, jika tidak mengirimkannya kiri. Jika nilainya nol .muncul nilai dari stack dan output sebagai integer dan @menghentikan program. Kalau tidak, vkirim kontrol ke loop kembali.

^*4*8*8<

Ini hanya mengalikan nilai teratas tumpukan dengan 256 dan mengembalikan kontrol ke awal.

Ruby (40)

q=->x{x.gsub(/(\d+)\.?/){'%02x'%$1}.hex}

->

q["192.168.1.1"]
=> 3232235777

Ruby - 46 karakter

require"ipaddr"
def f s;IPAddr.new(s).to_i;end

Golfscript - 21 karakter

{'.'/{~}%{\256*+}*}:f

Python 56 45

c=lambda x:eval('((('+x.replace('.','<<8)+'))

C ++ - banyak karakter

#include <boost/algorithm/string.hpp>
#include <string>
#include <vector>
uint f(std::string p)
{
        std::vector<std::string> x;
        boost::split(x,p,boost::is_any_of("."));
        uint r=0;
        for (uint i = 0; i < x.size(); i++)
                r=r*256+atoi(x[i].c_str());
        return r;
}

PowerShell 66 61

Variasi jawaban Joey:

filter I{([ipaddress](($_-split'\.')[3..0]-join'.')).address}

PS C:\> '192.168.1.1' | I
3232235777
PS C:\> '10.10.104.36' | I
168454180
PS C:\> '8.8.8.8' | I
134744072

AWK dalam ~ 47 karakter

Timer pertama di sini ... Um, tidak yakin bagaimana cara menghitung ini, tetapi tanpa 'gema' itu 47 karakter di AWK. (Bukan golf momok, tapi ada di lubang.)

echo $addr | /bin/awk -F\. '{print $1*16777216+$2*65536+$3*256+$4}'

Sehari penuh lebih awal untuk #tbt, jadi saya benar-benar bertemu jadwal !!! * 8-)

Hari spanduk.

Bash - 46

Daftar Isi

Anda akan menemukan 4 versi golf yang berbeda:

echo $[_=32,`printf "%d<<(_-=8)|" ${1//./ }`0]                        # 46chr
set -- ${1//./ };echo $[$1<<24|$2<<16|$3<<8|$4]                       # 47chr
v=('|%d<<'{24,16,8,0});printf -vv "${v[*]}" ${1//./ };echo $[0$v]     # 65chr
mapfile -td. i<<<$1;for((a=o=0;a<4;o+=i[a]<<(3-a++)*8)){ :;};echo $o  # 68chr

Versi baru! 2018-11-15 Lebih banyak bermain golf, 46 karakter

echo $[_=32,`printf "%d<<(_-=8)|" ${1//./ }`0]

Penjelasan

• Saya menggunakan $_ lebih banyak golf.
• Sintaksis ${1//./ } akan mengganti setiap titik .dengan spasi .
• begitu printf akan membuat sesuatu seperti192<<(_-=8)|168<<(_-=8)|1<<(_-=8)|1<<(_-=8)|
• maka kita akan menambahkan 0setelah terakhir OR | dan
• diatur _ke 32 . bash akan membaca konstruk dari kiri ke kanan, jadi $((_-=8))buat 24di shift pertama ,16 kedua, dan seterusnya.

dalam aksi:

set -- 192.168.1.1
echo $[_=32,`printf "%d<<(_-=8)|" ${1//./ }`0]
3232235777

Untuk bersenang-senang: mencoba untuk mendapatkan $_konten, setelah ini:

echo $_
3232235777

; -b

set -- 192.168.1.1
echo $_ $[_=32,`printf "%d<<(_-=8)|" ${1//./ }`0] $_
192.168.1.1 3232235777 0

Ok, itu benar 32 - 4 x 8 = 0

Dalam suatu fungsi:

ip2int() {
    echo $[_=32,`printf "%d<<(_-=8)|" ${1//./ }`0]
}
ip2int 192.168.1.1
3232235777
ip2int 255.255.255.255
4294967295
ip2int 0.0.0.0
0

atau ke dalam satu lingkaran: -> 60

ip2int() {
    for i;do
        echo $[_=32,`printf "%d<<(_-=8)|" ${i//./ }`0]
    done
}

ip2int 192.168.1.1 10.10.104.36 8.8.8.8 1.1.1.1 255.255.255.255 0.0.0.0
3232235777
168454180
134744072
16843009
4294967295
0

bash (v4.1 +): 47

Pos pertama

set -- ${1//./ };echo $[$1<<24|$2<<16|$3<<8|$4]

Penjelasan:

• Sintaks${1//./ } akan mengganti setiap titik .dengan spasi .
• set --mengatur parameter posisi ( $@=($1 $2 $3...))
• Jadi set -- ${1//./ }akan membagi $1oleh titik dan set $1, $2, $3dan $4apakah string containg3 titik (dan tidak ada spasi).

dalam aksi:

set -- 192.168.1.1
set -- ${1//./ };echo $[$1<<24|$2<<16|$3<<8|$4]
3232235777

atau dalam suatu fungsi:

ip2int() {
    set -- ${1//./ }
    echo $[$1<<24|$2<<16|$3<<8|$4]
}
ip2int 192.168.1.1
3232235777
ip2int 0.0.0.0
0

atau ke dalam satu lingkaran: -> 61

for i;do set -- ${i//./ };echo $[$1<<24|$2<<16|$3<<8|$4];done

dalam aksi:

ip2int() {
    for i;do
        set -- ${i//./ }
        echo $[$1<<24|$2<<16|$3<<8|$4]
    done
}

ip2int 192.168.1.1 10.10.104.36 8.8.8.8 1.1.1.1 0.0.0.0
3232235777
168454180
134744072
16843009
0

Versi lain berbeda golf: 65

v=('|%d<<'{24,16,8,0});printf -vv "${v[*]}" ${1//./ };echo $[0$v]

Sampel:

ip2int() {
    v=('|%d<<'{24,16,8,0});printf -vv "${v[*]}" ${1//./ };echo $[0$v]
}

ip2int 255.255.255.255
4294967295
ip2int 10.10.104.36
168454180

Dalam satu lingkaran (+14): 82

ip2int() {
    for i;do
        v=('|%d<<'{24,16,8,0})
        printf -vv "${v[*]}" ${1//./ }
        echo $[0$v]
    done
}

* atau sedikit lebih jelek: 70 *

v=('|%d<<'{24,16,8});printf -vv "${v[*]}" ${1//./ };echo $[0${v%<<2*}]

di mana printfberikan beberapa string seperti |192<<24 |168<<16 |1<<8|1<<24 |0<<16 |0<<8kita harus memotong pada akhirnya<<2... .

bermain golf dengan mapfile, lebih lama: 68

ip2int() {
    mapfile -td. i<<<$1;for((a=o=0;a<4;o+=i[a]<<(3-a++)*8)){ :;};echo $o
}

atau dengan loop: 82

ip2int() {
    for a;do
      mapfile -td. i<<<$a;for((a=o=0;a<4;o+=i[a]<<(3-a++)*8)){ :;};echo $o
    done
}

Windows PowerShell, 70

Pendekatan naif:

filter I{[int[]]$x=$_-split'\.'
$x[0]*16MB+$x[1]*64KB+$x[2]*256+$x[3]}

Dengan menggunakan System.Net.IPAddress: 76

filter I{([ipaddress]($_-replace('(.+)\.'*3+'(.+)'),'$4.$3.$2.$1')).address}

Uji:

> '192.168.1.1'|I
3232235777

Befunge-93 - 36 karakter

&"~"2+::8****&884**:**&884***&++++.@

Perl: DIY (untuk oneliners.) (40)

$j=3;$i+=($_<<($j--*8))for split/\./,$x;

# Gunakan nilai dalam $ i

Fungsi DIY (65):

sub atoi{my($i,$j)=(0,3);$i+=($_<<($j--*8))for split'.',shift;$i}

Haskell - 14 karakter

(.) a=(256*a+)

penggunaan di GHCi:

Prelude> let (.) a=(256*a+)
Prelude> 192. 168. 0. 1
3232235521

Satu-satunya masalah adalah Anda harus meletakkan spasi di kiri atau kanan titik, jika tidak angka akan ditafsirkan sebagai titik mengambang.

C # - 77 karakter

Func<string,uint>F=s=>s.Split('.').Aggregate(0u,(c,b)=>(c<<8)+uint.Parse(b));

JavaScript (45 karakter)

Membutuhkan dukungan untuk .reduce()metode Array yang diperkenalkan dalam fungsi ES5 dan panah .

f=(x)=>x.split('.').reduce((p,c)=>p<<8|c)>>>0

Powershell, 47 43 byte

$args-split'\.'|%{$r=([long]$r-shl8)+$_};$r

Skrip uji:

$f = {

$args-split'\.'|%{$r=([long]$r-shl8)+$_};$r

}

@(
    ,("192.168.1.1",3232235777)
    ,("10.10.104.36",168454180)
    ,("8.8.8.8",134744072)
) | % {
    $s,$expected = $_
    $result = &$f $s
    "$($result-eq$expected): $result"
}

Keluaran:

True: 3232235777
True: 168454180
True: 134744072

C # - 120 Karakter

float s(string i){var o=i.Split('.').Select(n=>float.Parse(n)).ToList();return 16777216*o[0]+65536*o[1]+256*o[2]+o[3];}

Golf kode pertama saya - lembut;)

D: 84 Karakter

uint f(S)(S s)
{
    uint n;
    int i = 4;

    foreach(o; s.split("."))
        n += to!uint(o) << 8 * --i;

    return n;
}

Python 3.2 (69)

sum((int(j)*4**(4*i)) for i,j in enumerate(input().split('.')[::-1]))

PHP (tanpa builtin / eval) - 54

<foreach(explode(".",$argv[1])as$b)$a=@$a<<8|$b;echo$a;

Perl, 14 karakter:

sub _{unpack'L>',pop}

# Example usage
print _(10.10.104.36) # prints 168454180

Stax , 9 byte

üL▼ü╛tΓi╨

Jalankan dan debug itu

05AB1E , 5 byte

'.¡₁β

Cobalah online!

Perl 6 , 16 byte

{:256[m:g/\d+/]}

Cobalah online!

C (gcc) -m32 / POSIX, 33 byte

f(a){inet_aton(a,&a);a=ntohl(a);}

Cobalah online!

Pada platform big-endian, Anda bisa mendefinisikan makro dengan -Df=inet_atonuntuk 13 byte .