aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

33
Task/Long-literals-with-continuations/PascalABC.NET/long-literals-with-continuations.pas Normal file
View file

@ -0,0 +1,33 @@
const
RevDate = '2024-12-28';
elementStr = '''
hydrogen helium lithium beryllium boron carbon
nitrogen oxygen fluorine neon sodium magnesium
aluminum silicon phosphorous sulfur chlorine argon
potassium calcium scandium titanium vanadium chromium
manganese iron cobalt nickel copper zinc
gallium germanium arsenic selenium bromine krypton
rubidium strontium yttrium zirconium niobium molybdenum
technetium ruthenium rhodium palladium silver cadmium
indium tin antimony tellurium iodine xenon
cesium barium lanthanum cerium praseodymium neodymium
promethium samarium europium gadolinium terbium dysprosium
holmium erbium thulium ytterbium lutetium hafnium
tantalum tungsten rhenium osmium iridium platinum
gold mercury thallium lead bismuth polonium
astatine radon francium radium actinium thorium
protactinium uranium neptunium plutonium americium curium
berkelium californium einsteinium fermium mendelevium nobelium
lawrencium rutherfordium dubnium seaborgium bohrium hassium
meitnerium darmstadtium roentgenium copernicium nihonium flerovium
moscovium livermorium tennessine oganesson
''';
elements = elementstr.towords(|#10, #13, ' '|);
begin
println('Last revision date: ', RevDate);
println('Number of elements: ', Elements.count);
println('Last element in list: ', Elements[^1]);
end.