31 lines
1.4 KiB
Text
31 lines
1.4 KiB
Text
void local fn DoIt
|
|
CFStringRef 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"
|
|
|
|
CFArrayRef array = fn StringComponentsSeparatedByString( elements, @" " )
|
|
|
|
print @"Last revision: 20230217"
|
|
print @"Elements: ";len(array)
|
|
print @"Last element: ";array[len(array)-1]
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|