Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!usc!elroy.jpl.nasa.gov!lll-winken!taco!news
From: eagle@catt.ncsu.edu (Daniel L'Hommedieu)
Newsgroups: comp.sys.handhelds
Subject: HP48: GCF and LCD programs
Message-ID: <1991Mar1.044209.22242@ncsu.edu>
Date: 1 Mar 91 04:42:09 GMT
Sender: news@ncsu.edu (USENET News System)
Reply-To: eagle@catt.ncsu.edu (Daniel L'Hommedieu)
Organization: NCSU CATT Program
Lines: 34

I'm having trouble translating a program to RPN.  It's a very useful
program that I used in my Casio fx-4000P.  It calculates the greatest
common factor between two numbers.  Another program I had but cannot
currently find calculated the prime factors of a number (for example,
250=2*5*5*5).

For those of you who are ambitious and would like to help me translate
the GCF program into RPN, here it is in some pseudocode form:

input a;a=abs(a);
input b;b=abs(b);
if (a<b) then
  swap(a,b);
repeat
{
  c=-(int(a/b)*b-a);
  a=b;
  b=c;
} until c=0;
print b;

My program gets into an infinite loop, continuing regardless of the
value of c.  Any help with this program is greatly appreciated!

Daniel
--
Name: Daniel C. L'Hommedieu III   Snail: NCSU Box 21531/Raleigh/NC/27607
INet: eagle@catt.ncsu.edu         Prodigy ID: bccj33d   Tel:919 737 6143
-OBJ: "Welcome to the Literacy Self-test Hotline. Please leave your name, 
  number, and a brief message using today's word: accolade." 
Name: Daniel C. L'Hommedieu III   Snail: NCSU Box 21531/Raleigh/NC/27607
INet: eagle@catt.ncsu.edu         Prodigy ID: bccj33d   Tel:919 737 6143
-OBJ: "Welcome to the Literacy Self-test Hotline. Please leave your name, 
  number, and a brief message using today's word: accolade."