exercism/abap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement Exercise: ETL (#235)

Browse Source
This commit is contained in:
Rahul Dwivedi
2022-10-27 17:41:19 +05:30
committed by GitHub
parent 2bd33dda55
commit 12763e1772
8 changed files with 270 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
config.json
View File

@@ -328,7 +328,15 @@
"practices": [],
"prerequisites": [],
"difficulty": 3
}
},
{
"slug": "etl",
"name": "ETL",
"uuid": "521e9992-5122-42e9-aaeb-4234f2e3d8e4",
"practices": [],
"prerequisites": [],
"difficulty": 3
}
]
},
"concepts": [

40
exercises/practice/etl/.docs/instructions.md Normal file
View File

@@ -0,0 +1,40 @@
# Description
We are going to do the `Transform` step of an Extract-Transform-Load.
## ETL
Extract-Transform-Load (ETL) is a fancy way of saying, "We have some crufty, legacy data over in this system, and now we need it in this shiny new system over here, so we're going to migrate this."
(Typically, this is followed by, "We're only going to need to run this once."
That's then typically followed by much forehead slapping and moaning about how stupid we could possibly be.)
## The goal
We're going to extract some Scrabble scores from a legacy system.
The old system stored a list of letters per score:
- 1 point: "A", "E", "I", "O", "U", "L", "N", "R", "S", "T",
- 2 points: "D", "G",
- 3 points: "B", "C", "M", "P",
- 4 points: "F", "H", "V", "W", "Y",
- 5 points: "K",
- 8 points: "J", "X",
- 10 points: "Q", "Z",
The shiny new Scrabble system instead stores the score per letter, which makes it much faster and easier to calculate the score for a word.
It also stores the letters in lower-case regardless of the case of the input letters:
- "a" is worth 1 point.
- "b" is worth 3 points.
- "c" is worth 3 points.
- "d" is worth 2 points.
- Etc.
Your mission, should you choose to accept it, is to transform the legacy data format to the shiny new format.
## Notes
A final note about scoring, Scrabble is played around the world in a variety of languages, each with its own unique scoring table.
For example, an "E" is scored at 2 in the Māori-language version of the game while being scored at 4 in the Hawaiian-language version.

13
exercises/practice/etl/.meta/config.json Normal file
View File

@@ -0,0 +1,13 @@
{
"blurb": "We are going to do the `Transform` step of an Extract-Transform-Load.",
"authors": ["dwivedirahul44"],
"contributors": [
],
"files": {
"solution": ["zcl_etl.clas.abap"],
"test": ["zcl_etl.clas.testclasses.abap"],
"example": [".meta/zcl_etl.clas.abap"]
},
"source": "The Jumpstart Lab team",
"source_url": "http://jumpstartlab.com"
}

44
exercises/practice/etl/.meta/zcl_etl.clas.abap Normal file
View File

@@ -0,0 +1,44 @@
CLASS zcl_etl DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_legacy_data,
number TYPE i,
string TYPE string,
END OF ty_legacy_data,
BEGIN OF ty_new_data,
letter TYPE c LENGTH 1,
number TYPE i,
END OF ty_new_data,
tty_legacy_data TYPE SORTED TABLE OF ty_legacy_data WITH UNIQUE KEY number,
tty_new_data TYPE SORTED TABLE OF ty_new_data WITH UNIQUE KEY letter.
METHODS transform IMPORTING legacy_data TYPE tty_legacy_data
RETURNING VALUE(new_data) TYPE tty_new_data.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_etl IMPLEMENTATION.
METHOD transform.
new_data = VALUE tty_new_data(
FOR legacy IN legacy_data
FOR i = 0 UNTIL i = strlen( replace( val = legacy-string
sub = ','
with = ``
occ = 0 ) )
LET str = replace( val = legacy-string
sub = ','
with = ``
occ = 0 )
IN ( letter = to_lower( substring( val = str
off = i
len = 1 ) )
number = legacy-number ) ).
ENDMETHOD.
ENDCLASS.

10
exercises/practice/etl/package.devc.xml Normal file
View File

@@ -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: Crypto Square</CTEXT>
</DEVC>
</asx:values>
</asx:abap>
</abapGit>

31
exercises/practice/etl/zcl_etl.clas.abap Normal file
View File

@@ -0,0 +1,31 @@
CLASS zcl_etl DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_legacy_data,
number TYPE i,
string TYPE string,
END OF ty_legacy_data,
BEGIN OF ty_new_data,
letter TYPE c LENGTH 1,
number TYPE i,
END OF ty_new_data,
tty_legacy_data TYPE SORTED TABLE OF ty_legacy_data WITH UNIQUE KEY number,
tty_new_data TYPE SORTED TABLE OF ty_new_data WITH UNIQUE KEY letter.
METHODS transform IMPORTING legacy_data TYPE tty_legacy_data
RETURNING VALUE(new_data) TYPE tty_new_data.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_etl IMPLEMENTATION.
METHOD transform.
"Implement Solution.
ENDMETHOD.
ENDCLASS.

106
exercises/practice/etl/zcl_etl.clas.testclasses.abap Normal file
View File

@@ -0,0 +1,106 @@
CLASS ltcl_etl DEFINITION FINAL FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA cut TYPE REF TO zcl_etl.
METHODS:
setup,
single_letter FOR TESTING,
single_score_multi_letter FOR TESTING,
two_score_two_letters FOR TESTING,
multi_score_multi_letter FOR TESTING.
ENDCLASS.
CLASS ltcl_etl IMPLEMENTATION.
METHOD setup.
cut = NEW zcl_etl( ).
ENDMETHOD.
METHOD single_letter.
DATA(inp) = VALUE zcl_etl=>tty_legacy_data(
( number = 1 string = `A` ) ).
cl_abap_unit_assert=>assert_equals(
act = cut->transform( inp )
exp = VALUE zcl_etl=>tty_new_data(
( letter = 'a' number = 1 ) ) ).
ENDMETHOD.
METHOD single_score_multi_letter.
DATA(inp) = VALUE zcl_etl=>tty_legacy_data(
( number = 1 string = `A,E,I,O,U` ) ).
DATA(exp) = VALUE zcl_etl=>tty_new_data(
( letter = 'a' number = 1 )
( letter = 'e' number = 1 )
( letter = 'i' number = 1 )
( letter = 'o' number = 1 )
( letter = 'u' number = 1 ) ).
cl_abap_unit_assert=>assert_equals(
act = cut->transform( inp )
exp = exp ).
ENDMETHOD.
METHOD two_score_two_letters.
DATA(inp) = VALUE zcl_etl=>tty_legacy_data(
( number = 1 string = `A,E` )
( number = 2 string = `D,G` ) ).
DATA(exp) = VALUE zcl_etl=>tty_new_data(
( letter = 'a' number = 1 )
( letter = 'e' number = 1 )
( letter = 'd' number = 2 )
( letter = 'g' number = 2 ) ).
cl_abap_unit_assert=>assert_equals(
act = cut->transform( inp )
exp = exp ).
ENDMETHOD.
METHOD multi_score_multi_letter.
DATA(inp) = VALUE zcl_etl=>tty_legacy_data(
( number = 1 string = `A,E,I,O,U,L,N,R,S,T` )
( number = 2 string = `D,G` )
( number = 3 string = `B,C,M,P` )
( number = 4 string = `F,H,V,W,Y` )
( number = 5 string = `K` )
( number = 8 string = `J,X` )
( number = 10 string = `Q,Z` ) ).
DATA(exp) = VALUE zcl_etl=>tty_new_data(
( letter = 'a' number = 1 )
( letter = 'b' number = 3 )
( letter = 'c' number = 3 )
( letter = 'd' number = 2 )
( letter = 'e' number = 1 )
( letter = 'f' number = 4 )
( letter = 'g' number = 2 )
( letter = 'h' number = 4 )
( letter = 'i' number = 1 )
( letter = 'j' number = 8 )
( letter = 'k' number = 5 )
( letter = 'l' number = 1 )
( letter = 'm' number = 3 )
( letter = 'n' number = 1 )
( letter = 'o' number = 1 )
( letter = 'p' number = 3 )
( letter = 'q' number = 10 )
( letter = 'r' number = 1 )
( letter = 's' number = 1 )
( letter = 't' number = 1 )
( letter = 'u' number = 1 )
( letter = 'v' number = 4 )
( letter = 'w' number = 4 )
( letter = 'x' number = 8 )
( letter = 'y' number = 4 )
( letter = 'z' number = 10 ) ).
cl_abap_unit_assert=>assert_equals(
act = cut->transform( inp )
exp = exp ).
ENDMETHOD.
ENDCLASS.

17
exercises/practice/etl/zcl_etl.clas.xml Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ETL</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>ETL exercise</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
<WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>