Senin, 03 Oktober 2011
bersenang senang dengan codingan
08.59 |
Diposting oleh
Unknown
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.
#! /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”;
}
}
Langganan:
Posting Komentar (Atom)
Statistik
Translate
Blog Archive
-
▼
2011
(1064)
-
▼
Oktober
(834)
-
▼
Okt 03
(33)
- Santai dengan assembler 8051
- bersenang senang dengan codingan
- Daftar kode
- Konsep Dasar Java
- Fitur-fitur Baru pada Adobe Flash CS4
- Apakah Flash itu?
- Perbedaan CSS dan HTML
- Mengenal CSS
- Bekerja dengan Form
- Apakah PHP ?
- Karakter Khusus
- Form
- Table untuk Layout
- hosting
- Warna & Font
- Stylesheet
- Gambar & Teks Berjalan
- Analisa
- Link
- Html
- Text Formating
- Frameset
- Menghilangkan (virus) Autorun.inf pada Flashdisk
- Menjumlahkan Waktu dengan Format hh:mm:ss Mengguna...
- Membuat Fungsi Tanggal
- Verifikasi alamat email ini
- Verifikasi alamat email ini
- Verifikasi alamat email ini
- Mempercepat Koneksi Internet
- Rumus Luas dan keliling Persegi Panjang dengan Php
- Rumus Luas dan keliling Persegi dengan Php
- Rumus menghitung luas lingkaran dengan Java
- Rumus Luas Lingkaran dengan Php
-
▼
Okt 03
(33)
-
▼
Oktober
(834)
0 komentar:
Posting Komentar