Coding for fun

Udah lama gak coding … Tadi pagi iseng-iseng coding perl lagi. Just for fun. Kodenya adalah membuat list edge dari sebuah peta robot. Ternyata masih bisa juga koding perl dengan cepat. (Terpaksa dua kali bikin kodenya. Yang pertama selesai 30 menit. Terus gak tahu disimpan di mana. Koding lagi, lebih cepat, 15 menit dan kayaknya kodenya lebih bagus.) hi hi hi.

Mau memperlihatkan kodenya kok agak malu. hi hi hi. Soalnya kodenya terlalu verbose, gak perl-like. ha ha ha. Yah nanti kalau sempat saya tampilkan kodenya. Ini saya tampilkan kodenya, tetapi ternyata indent-nya (grouping) kacau balau ketika di-paste-kan di halaman ini. Malas untuk memperbaikinya. (Mau versi yang lebih singkat? Ada di sini.)

#! /usr/bin/perl
# BR aka mr. GBT - Juli 2008

$m=4; # m => x
$n=4; # n => y

for ($y=0; $y < $n ; $y++) {
for ($x=0 ; $x < $m ; $x++) {
$flagN=1; $flagE=1; $flagS=1; $flagW=1;

# cek apakah row pertama
if ($y==0) { $flagN=0; }
# cek apakah kolom paling kanan
if ($x==($m-1)) { $flagE=0; }
# cek apakah baris paling bawah
if ($y==($n-1)) { $flagS=0;}
# cek apakah kolom paling kiri
if ($x==0) {$flagW=0;}

# proses untuk setiap node
$namaNode = “($x,$y)”;
$node = $y*$m + $x;

print “$node: “;

if ($flagN) { $neighbor = ($y-1) * $m + $x; print ” $neighbor “; }

if ($flagE) { $neighbor = $y * $m + ($x + 1); print ” $neighbor “; }

if ($flagS) { $neighbor = ($y+1) * $m + $x; print ” $neighbor “; }

if ($flagW) { $neighbor = $y * $m + ($x – 1); print ” $neighbor “; }

print “\n”;
}
}

About Budi Rahardjo

Teknologi informasi, security, musik, buku Lihat semua pos milik Budi Rahardjo

33 responses to “Coding for fun

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.

Bergabunglah dengan 2.429 pengikut lainnya.

%d blogger menyukai ini: