Merge branch 'main' into book_store_main

Author: mbtools

config.json

@@ -435,6 +435,14 @@
         "prerequisites": [],
         "difficulty": 1
       },
+      {
+        "slug": "isbn-verifier",
+        "name": "ISBN Verifier",
+        "uuid": "941750f4-d641-44b9-a7eb-7be50cd93cee",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 2
+      },
       {
         "slug": "state-of-tic-tac-toe",
         "name": "State of Tic-Tac-Toe",

exercises/practice/isbn-verifier/.docs/instructions.md

@@ -0,0 +1,42 @@
+# Instructions
+
+The [ISBN-10 verification process][isbn-verification] is used to validate book identification numbers.
+These normally contain dashes and look like: `3-598-21508-8`
+
+## ISBN
+
+The ISBN-10 format is 9 digits (0 to 9) plus one check character (either a digit or an X only).
+In the case the check character is an X, this represents the value '10'.
+These may be communicated with or without hyphens, and can be checked for their validity by the following formula:
+
+```text
+(d₁ * 10 + d₂ * 9 + d₃ * 8 + d₄ * 7 + d₅ * 6 + d₆ * 5 + d₇ * 4 + d₈ * 3 + d₉ * 2 + d₁₀ * 1) mod 11 == 0
+```
+
+If the result is 0, then it is a valid ISBN-10, otherwise it is invalid.
+
+## Example
+
+Let's take the ISBN-10 `3-598-21508-8`.
+We plug it in to the formula, and get:
+
+```text
+(3 * 10 + 5 * 9 + 9 * 8 + 8 * 7 + 2 * 6 + 1 * 5 + 5 * 4 + 0 * 3 + 8 * 2 + 8 * 1) mod 11 == 0
+```
+
+Since the result is 0, this proves that our ISBN is valid.
+
+## Task
+
+Given a string the program should check if the provided string is a valid ISBN-10.
+Putting this into place requires some thinking about preprocessing/parsing of the string prior to calculating the check digit for the ISBN.
+
+The program should be able to verify ISBN-10 both with and without separating dashes.
+
+## Caveats
+
+Converting from strings to numbers can be tricky in certain languages.
+Now, it's even trickier since the check digit of an ISBN-10 may be 'X' (representing '10').
+For instance `3-598-21507-X` is a valid ISBN-10.
+
+[isbn-verification]: https://en.wikipedia.org/wiki/International_Standard_Book_Number

exercises/practice/isbn-verifier/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "BNAndras"
+  ],
+  "files": {
+    "solution": [
+      "zcl_isbn_verifier.clas.abap"
+    ],
+    "test": [
+      "zcl_isbn_verifier.clas.testclasses.abap"
+    ],
+    "example": [
+      ".meta/zcl_isbn_verifier.clas.abap"
+    ]
+  },
+  "blurb": "Check if a given string is a valid ISBN-10 number.",
+  "source": "Converting a string into a number and some basic processing utilizing a relatable real world example.",
+  "source_url": "https://en.wikipedia.org/wiki/International_Standard_Book_Number#ISBN-10_check_digit_calculation"
+}

exercises/practice/isbn-verifier/.meta/tests.toml

@@ -0,0 +1,73 @@
+# This is an auto-generated file.
+#
+# Regenerating this file via `configlet sync` will:
+# - Recreate every `description` key/value pair
+# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications
+# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion)
+# - Preserve any other key/value pair
+#
+# As user-added comments (using the # character) will be removed when this file
+# is regenerated, comments can be added via a `comment` key.
+
+[0caa3eac-d2e3-4c29-8df8-b188bc8c9292]
+description = "valid isbn"
+
+[19f76b53-7c24-45f8-87b8-4604d0ccd248]
+description = "invalid isbn check digit"
+
+[4164bfee-fb0a-4a1c-9f70-64c6a1903dcd]
+description = "valid isbn with a check digit of 10"
+
+[3ed50db1-8982-4423-a993-93174a20825c]
+description = "check digit is a character other than X"
+
+[9416f4a5-fe01-4b61-a07b-eb75892ef562]
+description = "invalid check digit in isbn is not treated as zero"
+
+[c19ba0c4-014f-4dc3-a63f-ff9aefc9b5ec]
+description = "invalid character in isbn is not treated as zero"
+
+[28025280-2c39-4092-9719-f3234b89c627]
+description = "X is only valid as a check digit"
+
+[8005b57f-f194-44ee-88d2-a77ac4142591]
+description = "only one check digit is allowed"
+
+[fdb14c99-4cf8-43c5-b06d-eb1638eff343]
+description = "X is not substituted by the value 10"
+
+[f6294e61-7e79-46b3-977b-f48789a4945b]
+description = "valid isbn without separating dashes"
+
+[185ab99b-3a1b-45f3-aeec-b80d80b07f0b]
+description = "isbn without separating dashes and X as check digit"
+
+[7725a837-ec8e-4528-a92a-d981dd8cf3e2]
+description = "isbn without check digit and dashes"
+
+[47e4dfba-9c20-46ed-9958-4d3190630bdf]
+description = "too long isbn and no dashes"
+
+[737f4e91-cbba-4175-95bf-ae630b41fb60]
+description = "too short isbn"
+
+[5458a128-a9b6-4ff8-8afb-674e74567cef]
+description = "isbn without check digit"
+
+[70b6ad83-d0a2-4ca7-a4d5-a9ab731800f7]
+description = "check digit of X should not be used for 0"
+
+[94610459-55ab-4c35-9b93-ff6ea1a8e562]
+description = "empty isbn"
+
+[7bff28d4-d770-48cc-80d6-b20b3a0fb46c]
+description = "input is 9 characters"
+
+[ed6e8d1b-382c-4081-8326-8b772c581fec]
+description = "invalid characters are not ignored after checking length"
+
+[daad3e58-ce00-4395-8a8e-e3eded1cdc86]
+description = "invalid characters are not ignored before checking length"
+
+[fb5e48d8-7c03-4bfb-a088-b101df16fdc3]
+description = "input is too long but contains a valid isbn"

exercises/practice/isbn-verifier/.meta/zcl_isbn_verifier.clas.abap

@@ -0,0 +1,38 @@
+CLASS zcl_isbn_verifier DEFINITION
+  PUBLIC
+  FINAL
+  CREATE PUBLIC .
+
+  PUBLIC SECTION.
+    METHODS is_valid
+      IMPORTING
+        VALUE(isbn)   TYPE string
+      RETURNING
+        VALUE(result) TYPE abap_bool.
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+
+ENDCLASS.
+
+
+CLASS zcl_isbn_verifier IMPLEMENTATION.
+  METHOD is_valid.
+    DATA(digits) = replace( val = isbn sub = '-' with = '' occ = 0 ).
+
+    IF strlen( digits ) <> 10 OR NOT contains( val = digits regex = '^[0-9]{9}[0-9X]$' ).
+      RETURN.
+    ENDIF.
+
+    DATA(total) = 0.
+
+    DO 10 TIMES.
+      DATA(character) = substring( val = digits off = sy-index - 1 len = 1 ).
+      DATA(digit) = COND i( WHEN character = 'X' THEN 10 ELSE character ).
+      total += digit * ( 11 - sy-index ).
+    ENDDO.
+
+    result = xsdbool( total MOD 11 = 0 ).
+  ENDMETHOD.
+
+
+ENDCLASS.

exercises/practice/isbn-verifier/package.devc.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_DEVC" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <DEVC>
+    <CTEXT>Exercism: ISBN Verifier</CTEXT>
+   </DEVC>
+  </asx:values>
+ </asx:abap>
+</abapGit>

exercises/practice/isbn-verifier/zcl_isbn_verifier.clas.abap

@@ -0,0 +1,24 @@
+CLASS zcl_isbn_verifier DEFINITION
+  PUBLIC
+  FINAL
+  CREATE PUBLIC .
+
+  PUBLIC SECTION.
+    METHODS is_valid
+      IMPORTING
+        VALUE(isbn)   TYPE string
+      RETURNING
+        VALUE(result) TYPE abap_bool.
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+
+ENDCLASS.
+
+
+CLASS zcl_isbn_verifier IMPLEMENTATION.
+  METHOD is_valid.
+    " add solution here
+  ENDMETHOD.
+
+
+ENDCLASS.

exercises/practice/isbn-verifier/zcl_isbn_verifier.clas.testclasses.abap

@@ -0,0 +1,166 @@
+CLASS ltcl_isbn_verifier DEFINITION FOR TESTING
+  DURATION SHORT
+  RISK LEVEL HARMLESS.
+
+  PRIVATE SECTION.
+    DATA cut TYPE REF TO zcl_isbn_verifier.
+    METHODS setup.
+    METHODS test_valid_isbn FOR TESTING RAISING cx_static_check.
+    METHODS test_invalid_check_digit FOR TESTING RAISING cx_static_check.
+    METHODS test_valid_x_check_digit FOR TESTING RAISING cx_static_check.
+    METHODS test_check_digit_not_x FOR TESTING RAISING cx_static_check.
+    METHODS test_invalid_check_not_zero FOR TESTING RAISING cx_static_check.
+    METHODS test_invalid_char_not_zero FOR TESTING RAISING cx_static_check.
+    METHODS test_x_only_check_digit FOR TESTING RAISING cx_static_check.
+    METHODS test_one_check_digit_allowed FOR TESTING RAISING cx_static_check.
+    METHODS test_x_not_substituted FOR TESTING RAISING cx_static_check.
+    METHODS test_valid_without_dashes FOR TESTING RAISING cx_static_check.
+    METHODS test_without_dashes_x FOR TESTING RAISING cx_static_check.
+    METHODS test_missing_check_no_dashes FOR TESTING RAISING cx_static_check.
+    METHODS test_too_long_no_dashes FOR TESTING RAISING cx_static_check.
+    METHODS test_too_short FOR TESTING RAISING cx_static_check.
+    METHODS test_missing_check_digit FOR TESTING RAISING cx_static_check.
+    METHODS test_x_not_for_zero FOR TESTING RAISING cx_static_check.
+    METHODS test_empty_isbn FOR TESTING RAISING cx_static_check.
+    METHODS test_nine_characters FOR TESTING RAISING cx_static_check.
+    METHODS test_invalid_after_length FOR TESTING RAISING cx_static_check.
+    METHODS test_invalid_before_length FOR TESTING RAISING cx_static_check.
+    METHODS test_too_long_contains_valid FOR TESTING RAISING cx_static_check.
+
+ENDCLASS.
+
+
+CLASS ltcl_isbn_verifier IMPLEMENTATION.
+
+  METHOD setup.
+    cut = NEW zcl_isbn_verifier( ).
+  ENDMETHOD.
+
+  METHOD test_valid_isbn.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21508-8' )
+      exp = abap_true ).
+  ENDMETHOD.
+
+  METHOD test_invalid_check_digit.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21508-9' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_valid_x_check_digit.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21507-X' )
+      exp = abap_true ).
+  ENDMETHOD.
+
+  METHOD test_check_digit_not_x.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21507-A' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_invalid_check_not_zero.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '4-598-21507-B' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_invalid_char_not_zero.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-P1581-X' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_x_only_check_digit.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-2X507-9' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_one_check_digit_allowed.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21508-96' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_x_not_substituted.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-2X507-5' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_valid_without_dashes.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3598215088' )
+      exp = abap_true ).
+  ENDMETHOD.
+
+  METHOD test_without_dashes_x.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '359821507X' )
+      exp = abap_true ).
+  ENDMETHOD.
+
+  METHOD test_missing_check_no_dashes.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '359821507' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_too_long_no_dashes.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3598215078X' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_too_short.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '00' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_missing_check_digit.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21507' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_x_not_for_zero.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3-598-21515-X' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_empty_isbn.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_nine_characters.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '134456729' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_invalid_after_length.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3132P34035' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_invalid_before_length.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '3598P215088' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+  METHOD test_too_long_contains_valid.
+    cl_abap_unit_assert=>assert_equals(
+      act = cut->is_valid( '98245726788' )
+      exp = abap_false ).
+  ENDMETHOD.
+
+
+ENDCLASS.