Groups | Search | Server Info | Login | Register

Scrabble Score (exercism solution)

From	"Bruce M. Axtens" <some.one@some.where>
Newsgroups	comp.lang.cobol
Subject	Scrabble Score (exercism solution)
Date	2025-01-13 07:09 +0000
Organization	A noiseless patient Spider
Message-ID	<vm2e7o$1mcn6$1@dont-email.me> (permalink)

Show all headers | View raw

While trying to solve the Scrabble Scores exercise on Exercism, I read in 
the GnuCOBOL FAQ about CLASS in SPECIAL-NAMES. Is this an okay use 
thereof?

-Bruce

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SCRABBLE-SCORE.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
        CLASS ONES IS 'A', 'E', 'I', 'O', 'U', 'L', 'N', 'R', 'S', 'T'.
        CLASS TWOS IS 'D', 'G'.
        CLASS THREES IS 'B', 'C', 'M', 'P'.
        CLASS FOURS IS 'F', 'H', 'V', 'W', 'Y'.
        CLASS FIVES IS 'K'.
        CLASS EIGHTS IS 'J','X'.
        CLASS TENS IS 'Q','Z'.
       DATA DIVISION.
       WORKING-STORAGE SECTION.         
      *Inputs
       01 WS-WORD   PIC X(60).
       01 WS-WORD-ARRAY REDEFINES WS-WORD.
        03 WS-CHAR PIC X OCCURS 60 TIMES INDEXED BY CHAR-INDEX.
      *Outputs
       01 WS-RESULT PIC 99.
       PROCEDURE DIVISION.
       SCRABBLE-SCORE.
        INITIALIZE WS-RESULT.
        MOVE FUNCTION UPPER-CASE (WS-WORD) TO WS-WORD.
        SET CHAR-INDEX TO 1.
        PERFORM LENGTH OF WS-WORD TIMES
         IF WS-CHAR(CHAR-INDEX) EQUAL SPACE
          EXIT PERFORM
         END-IF
         EVALUATE WS-CHAR(CHAR-INDEX)
          WHEN IS ONES
           ADD 1 TO WS-RESULT
          WHEN IS TWOS
           ADD 2 TO WS-RESULT
          WHEN IS THREES 
           ADD 3 TO WS-RESULT
          WHEN IS FOURS
           ADD 4 TO WS-RESULT
          WHEN IS FIVES 
           ADD 5 TO WS-RESULT
          WHEN IS EIGHTS
           ADD 8 TO WS-RESULT
          WHEN IS TENS
           ADD 10 TO WS-RESULT
         END-EVALUATE
         SET CHAR-INDEX UP BY 1
        END-PERFORM

Back to comp.lang.cobol | Previous | Next — Next in thread | Find similar

Thread

Scrabble Score (exercism solution) "Bruce M. Axtens" <some.one@some.where> - 2025-01-13 07:09 +0000
  Re: Scrabble Score (exercism solution) R Daneel Olivaw <Danny@hyperspace.vogon.gov> - 2025-01-13 10:29 +0100
    Re: Scrabble Score (exercism solution) "Bruce M. Axtens" <some.one@some.where> - 2025-01-14 02:59 +0000
      Re: Scrabble Score (exercism solution) R Daneel Olivaw <Danny@hyperspace.vogon.gov> - 2025-01-14 19:40 +0100
        Re: Scrabble Score (exercism solution) docdwarf@panix.com () - 2025-01-14 21:33 +0000

csiph-web