H DFTNAME(TESTCRT) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** コラッツの予想 ********************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTRPGMOD  OBJ(QTEMP/TESTCRT)  SRCFILE(R610SRC/QRPGLESRC)                                   
      * DBGVIEW(*SOURCE) AUT(*ALL)                                                                  
      * CRTPGM PGM(ASNET.COM/TESTCRT) MODULE(QTEMP/TESTCRT) ACTGRP(*NEW)                            
      *        AUT(*ALL)                                                                            
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2023/03/11 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D N               S              4S 0                                                          
     D M               S              4S 0                                                          
     D AMARI           S              4S 0                                                          
                                                                                                    
     C     ' 自然数 ?'   DSPLY                   NSU               4                                
     C                   EVAL      N = %DEC(NSU:4:0)                                                
     C                   IF        N > 0                                                            
     C                   DO        *HIVAL                                       DO-*HIVAL           
     C     N             DIV       2             M                                                  
     C                   MVR                     AMARI                    50                        
     C                   IF        *IN50 = *ON                                   偶数               
     C                   EVAL      N = M                                                            
     C                   ELSE                                                    奇数               
     C                   EVAL      N = N * 3 + 1                                                    
     C                   ENDIF                                                                      
     C                   IF        N = 1                                        N = 1               
     C     'N = 1'       DSPLY                   ANS               1                                
     C                   LEAVE                                                                      
     C                   ENDIF                                                  N = 1               
     C                   ENDDO                                                  DO-*HIVAL           
     C                   ENDIF                                                                      
     C                   SETON                                        LR                            
     C                   RETURN