Find the lights which are turn on. Post: 302433965

Sponsored Content

Top Forums Shell Programming and Scripting Find the lights which are turn on. Post 302433965 by rdcwayx on Thursday 1st of July 2010 03:26:33 AM

07-01-2010

Registered User

Find the lights which are turn on.

See the interview question from other site, that I'd like to implement by AWK.

The rules are:

There are 100 lamps, number from 1 to 100. Initially, all of them are returned off.
First time, if the number of lamp is multiple by one, switch the lamp status; that's mean, if it turn off, turn it on, vice versa.
Second time, if the number of lamp is multiple by two, switch the lamp status;
Third time, if the number of lamp is multiple by three, switch the lamp status;
And so on, until find out the number of lamp is multiples of 100, switch the lamp status;

Finally list all number of lamps which turn on.

I write the code, but seems the var in Function is not public var. array a 's value can't be used outside of function.

Code:

$ Cat my.awk

function s(n) {for (i=1;i<=100;i++) {a[i]=(a[i]%n)?a[i]:-a[i]}}
BEGIN{for (i=1;i<=100;i++) a[i]=1}
{for (i=1;i<=100;i++) s(i)}
END {for (i=1;i<=100;i++) {if (a[i]=="-1") print i, a[i]} }'

How can I fix it?

rdcwayx

View Public Profile for rdcwayx

Find all posts by rdcwayx

9 More Discussions You Might Find Interesting

1. SuSE

RH8.0 firewall WILL NOT turn off

I have been trying to disable the firewall on a new install of RH8(Psyche). It will NOT stay disabled. I've gone thru system tools, security level and disabled it, and it says YES, like it will save my settings, but when i open it up again, it is always back to HIGH. I also tried using the...

2. UNIX for Dummies Questions & Answers

How to turn off duplex

I am using digital Unix and lpd. I have HP 4200n LaserJet TCP printer, but when I use lpr command, it always print duplex. I can turn off duplex feature at the panel of the printer, but then other Windows computer cannot print duplex. How can I set up /etc/printcap file so that it will be...

3. SuSE

Amber Lights + Remote Servers

Ok, so we get reports from operations after they do walk throughs about servers with amber or red lights showing. They want us to resolve the issues. On Solaris I can run prtdiag to identify the amber lights and clear them (replace hardware or "reboot" the daemon). How do I remotely figure out...

4. UNIX for Dummies Questions & Answers

turn off sound

how to disable anoying beep sound???

5. Shell Programming and Scripting

Turn Off the Message [YOU HAVE NEW MAIL]

#!/bin/sh cd /u02/app/ccalloc/dev/in CURDIR=`pwd` echo directory listing of $CURDIR echo ls -latr i have a basic shell script that displays a specific files on a directory. when the script is run and it does not find the file in the directory it display a first line message of how...

6. Red Hat

Turn off subshelling of pipe

After searching the forum, I found that Bash spawns a subshell when using the pipe. I am wondering if there is an option or any other way to turn off this fuctionality. We are pulling over some scripts from a Korn shell environment. I have found ways to work around looping from a pipe (Thanks...

7. Programming

Turn ON/OFF Wireless Card

Hi all, In my program, I am trying to use ioctl to turn on/off the wireless card, using SIOCSIFFLAGS (I am new to it but somebody said it is the most traditional way). However, it seems that I didn't set the flag correctly since the wireless is always on (I have root permission). If any one...

8. Shell Programming and Scripting

turn list into one line

Hi All i am cat'ing a file and then using cut to get rid of some info, is there a way to turn the list into one line i.e 1 2 3 4 5 into 1 2 3 4 5

9. UNIX for Beginners Questions & Answers

Just can't turn off ipv6?

I'm running a Linux OS that uses Debian as it's base. A commercial vpn is installed that uses OpenVPN. For some reason, I can't get ipv6 to tunnel properly .... and Ipleak.net shows that my location is being unmasked by ipv6. I've tried kernel commands at boot, I've tried sysctl.conf commands....

LEARN ABOUT OSX

io::digest

IO::Digest(3)						User Contributed Perl Documentation					     IO::Digest(3)

NAME

       IO::Digest - Calculate digests while reading or writing

SYNOPSIS

	use IO::Digest;

	# Get a Digest::MD5 object that takes input while $fh being written or read
	$iod = IO::Digest->new ($fh, 'MD5');

	print $fh "fooo";
	print $iod->hexdigest

DESCRIPTION

       This module allows you to calculate digests while reading or writing file handles.  This avoids the case you need to reread the same
       content to compute the digests after written a file.

TEST COVERAGE

	----------------------------------- ------ ------ ------ ------ ------ ------
	File				      stmt branch   cond    sub   time	total
	----------------------------------- ------ ------ ------ ------ ------ ------
	blib/lib/IO/Digest.pm		     100.0    n/a    n/a  100.0  100.0	100.0
	Total				     100.0    n/a    n/a  100.0  100.0	100.0
	----------------------------------- ------ ------ ------ ------ ------ ------

AUTHORS

       Chia-liang Kao <clkao@clkao.org>

COPYRIGHT

       Copyright 2004 by Chia-liang Kao <clkao@clkao.org>.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

       See <http://www.perl.com/perl/misc/Artistic.html>

perl v5.16.2							    2004-09-11							     IO::Digest(3)