29 lines
2.1 KiB
Text
29 lines
2.1 KiB
Text
elements$= "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"
|
|
revision$= "2020-11-11"
|
|
Dim result$(0)
|
|
If OpenConsole() And CreateRegularExpression(0,"[a-z]{1,18}")
|
|
nbf=ExtractRegularExpression(0,elements$,result$())
|
|
PrintN("Last revision: "+revision$+
|
|
~"\nNumber of elements: "+Str(nbf)+
|
|
~"\nLast element: "+result$(nbf-1))
|
|
Input()
|
|
EndIf
|