Solved

No one will get this one!!!

Posted on 2000-04-18
3
151 Views
Last Modified: 2010-03-05

             
3 Write a program to solve the following problem.  Use an array to model the
  safety deposit box vault.  Initialize the boxes as described below.

              ===========================================
                         SAFETY DEPOSIT BOXES
              ===========================================

  There has been a run at the local savings and loan.  One thousand depositors
  have lined up in a very long vault with 1000 _CLOSED_ safety deposit boxes.
  One by one the depositors run through the vault.  The first depositor opens
  every box.  The second depositor goes to every second box and closes it.  
  The third depositor goes to every third box and changes it (if open, closes
  it; if closed, open it).  In a similiar manner, every fourth, fifth, sixth,
  ... depositor changes every fourth, fifth, sixth, ... box.  After all 1000
  depositors have passed through the vault, which boxes are left open?

0
Comment
Question by:myoreorex
  • 2
3 Comments
 
LVL 16

Accepted Solution

by:
maneshr earned 50 total points
ID: 2727961
try this..........

the results are really amazing!! all the boxes that are open are squares of numbers!!
==================amazin.pl

#!/usr/local/bin/perl

##  initalize all the boxes
##  0=closed, 1=open
foreach (0..999){
  $box[$_]=0;
}

foreach $user (1..1000){  ##  For every investor..
  print $user,"\n";
  foreach($[ .. $#box){
    $ctr=$_+1;
    if (($ctr % $user) == 0){
    print "\t",$ctr,"\n";
      if ($box[$_]){
        $box[$_]=0;
      }else{
        $box[$_]=1;
      }
    }
  }
}

print "box #'s that are open \n";
foreach($[ .. $#box){
  if ($box[$_]){
    $box_no=$_+1;
    print $box_no,"\n";
  }
}
0
 

Author Comment

by:myoreorex
ID: 2727978
Thanks...I forgot about the foreach..........

Michelle
0
 

Author Comment

by:myoreorex
ID: 2727989
Thanks...I forgot about the foreach!!!


michelle
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Problem with one substitution modifying another 3 73
Need Helping Editing Perl Script for PowerChute Network Shutdown 3 87
Perl string filter 5 82
Perl Versus AWK? 7 52
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question