My Blog - Judy Wong

It seems that the myth of "I blog coz I’m lonely" is yet again verified here. Looking at the history of my blog it seems that I do blog everytime I’m at the local abyss of my love life.

A polytechnic classmate (8 years ago?) exictedly email the world with his new-born baby’s photo (I didn’t even know when he got married?), and replying to my personal greetings he wrote "when he grow up, hope he can be as clever, musical, nice temper, artistic and cheerful like you"…

I wish that I’m clever, musical, nice temper, artistic and cheerful in His eyes too. Have years in a metropolis turned me into a dumb, pragmatic and mean girl?

Thx, Chu. I’m sure your baby would be happy always, just like his father.

btw, facebook is so automatic. I just sign up as a passive user and it already grab me 24 old friends - nowonder friendster lose out. Add me: judy@j4dy.net

I’m a born catholic, had my first holy communion at 8, my confirmation at 15 (and somehow, I regretted it, to confirm without serious consideration),  and it’s like, I’m trying to avoid the issue coz the more I consider it the more it drags me away from the “faith”. The most common excuse I use is “God will let me discover and understand him as I grow up”. Apparently, I still haven’t grow up yet. And I love this article, which synchronizes with my thoughts:

http://dilbertblog.typepad.com/the_dilbert_blog/2006/06/talking_to_god.htm

especially this comment, search for this string:

Here’s a simple test: according to scripture (John 14:14), Jesus said “If you ask anything in my name, I will do it.” Notice there are no disclaimers, nothing about “and it has to be part of God’s Will” or “do not put God to the test” or anything.

And well, guess what, it’s already our destiny that we believe in god. It’s already marked in the gene:

http://washingtontimes.com/world/20041114-111404-8087r.htm

People keep asking me what bike I have. So here it goes: http://www.yamaha-motor.jp/mc/lineup/sportsbike/tricker/index.html

(I still haven’t take a nice photo with it yet.)

Mine’s bright yellow, it’s as skinny as me, and yes it’s not a scooter, I don’t like autogear.

Anyway, I got myself another blog for me to spam at (while this one remains my nice posts), at http://www.xanga.com/eejudy .

Guess I’d put a pic of me and bike here soon.

There just came the idea of - am I writing for nobody? Is there anybody actually read my blog? I know there r ppl who read my portfolio, but that’s not enough to know a girl/get in touch with an old friend eh. So, if you are reading this, just leave a comment to let me know, I don’t care if it’s your real name. Just reminds me I got such a friend like u, or well, draw my attention to u if i’ve never talk to u

Would a person’s mental state be determined by the way he codes?

My code:
# to use: cat file|perl prog.pl
#!/usr/bin/perl

my $chk;
my $text;
my $name;
my $line;

$chk=0;

while (<>) {
    chomp;

    if($chk==1)
    {
$text.="$_\n";    }
   
    if (/^$/)
    {$chk=1;}else
    {$chk=0;}
}

for(split /\n/, $text){
my ($first, $second) = split;
$name .= $first ."\n";
$line .= $second ."\n";
}

#print $text;
print $name, "\n";
print $line;

I thought my code was neat, till…

His code:
#!/usr/bin/perl

my %tbl;

local $/ = undef;
my $all = <>;

for ($all =~ /(.*?\n{2,}|.+)/sg) {
        my ($first, $second) = split;
        push @{$tbl{$second}}, $first;
}

map {
        print "$_: ";
        map {
                print "$_, ";
        } @{$tbl{$_}};
} (keys %tbl);

“Miss Judy? This is calling from the xxx University Faculty of Law. Your letter of recommendation to the administration is almost ready for your application for Juris Doctor. We just lack a photocopy of your identification card…”

That shocked me while I was lazily reading up on some last-minute executive summary of the topic I gonna get for my upcoming job interview. Oh yeah, I did filled up the online application form for the JD in Feb, but I didn’t send in the supporting documents like reference letters, self appraisal and whatever, after realizing that I could neither afford the time to gather those supporting materials, nor could I able to afford the HKD 187 k for the entire course.

Hmm…? I remember how I wanted to write a good self-appraisal and how I worried about it. Duh. I’m a lucky one, I guess. Really.

Should I take this JD seriously? I am supposed to worry whether my MPhil thesis would be ready for summer submission instead. Well, leave that till the admission letter arrive then.

I thought I could make it. I was riding down the Clear Water Bay Road at 70 kph the weekend before. My worry was the figure-8 on slope, but I freakly practiced for ten odd hours just within the weekend before the test. For that, I felt the 80% chance of passing.

In the morning I went to the driving school with a Smiling Face stuck on my tummy. At least I won’t get menstruation pain after a full breakfast. The rest of the guys have already left to the “water bar” – the secret figure-8 practicing area. A senior brought me there a few days before. I took my joy ride with a new bike to the “water bar”, curiously found no one there, did my figure-8 with a crash, broke the side mirror, and came back to the test centre 1 hr before the test after fixing the mirror in driving school.

And for the test, yep I flew out of the bike again doing the figure-8. I raced back to the test centre overtaking 2-3 testing vehicle. Nah, there was only 1 major mistake – losing balance in figure-8 balancing. Nothing else was serious and I did it within the speed limit.

Coach comforted me saying that I was only nervous. I was a good driver anyway. But well who cares now, I can still buy a bike to ride on the road now saves the points that I need to pay a higher insurance, no driving a peak hour and no going up to the highway.

At 12pm I realized that the "water bar" I went was not the actual place. The senior got it wrong, and I was practicing at at time-restricted learner-prohibited area.

Yep it has been some time since I last wrote here. The “lastest” update was that I got a “proper” job at a “proper” company, happy with it (then), and was busy involving in the job adaptation and house-moving. Oh ya, boxes of my stuff are still in a corner of my 200-sq-ft apartment since I’ve unpacked them to living essentials. The “new” job at the French company was enthralling for the first month or two, where it was the norm for arriving the office at 930, eating breakfast at 10, going off at 6 sharp and having a 2 hr lunch. Plus, the “random” attendance on Saturdays. Hmm, more bits and pieces should come, for life has been “back to normal” again.

As it was the days near hall removal, as the hall tutor I put up a floor sheet with the label “Unwanted Item Collection – help yourself with the goods” and left happily for shower after leaving ten odds of my too-good-to-throw-away, decorative gifts there.

When I returned from shower, almost all except one item disappeared when I came back – the miniature fish tank (in box), original Japanese tapes that I’ve already converted into MP3, some hand phone holder from credit card sign-up, and some other souvenirs, were all gone. What was left was the “user’s guide to home computing”.

Cool eh, my unwanted items are hot, I should have had a gargage sale. Too bad I don’t have the time to sit and wait..

PS. You may not understand if you have never programmed seriously in conventional languages.

Task:

Write a program which reads in a series of text, and create a list of all words in the input text and display its word count in alphabetical order.

Conventional Procedure:

• Create 2 coresponding arrays, one contains the word name while the other contain the word count.
• Store the input string into the buffer, extract each word out using string manupulator at the break of a space bar, store in the word name array and increase coresponding word count by one.
• While extracting each word, check if it was already noted in the array and increase its corresponding word count.
• Perform a quicksort with the arrays and display the results with iteratives.

Solution:

#!/usr/bin/perl

my %dict;

while (<>) {
    chomp;
    foreach (split) {
        $dict{$_}++;
    }
}

my $i = 0;
foreach (sort keys %dict) {
    print $i++, " $_:", $dict{$_}, "\n";;
}

(Note: No, I didn’t write it. My bf did.)