Multiplication tables: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Chkas (talk | contribs)
2,149 edits
Hout (talk | contribs)
9,659 edits
m →‎AppleScript: (tidied)
Line 541:
 
{{trans|JavaScript}} (ES5 functional version)
<lang AppleScript>tableText(multTable(1,------------------- 12))MULTIPLICATION TABLE -----------------
 
-- multTablemultiplicationTable :: Int -> [[String]]
on multTablemultiplicationTable(m, n)
tableText(mulTable(1, n))
end multiplicationTable
 
 
-- mulTable :: Int -> Int-> [[String]]
on mulTable(m, n)
set axis to enumFromTo(m, n)
Line 565 ⟶ 572:
{{"x"} & axis} & concatMap(column, axis)
end multTablemulTable
 
-- TABLE DISPLAY --------------------------------------------------------------
 
-- tableText :: [[Int]] -> String
Line 587 ⟶ 593:
 
 
-- GENERIC FUNCTIONS --------------------------------- TEST -------------------------
on run
multiplicationTable(12)
end run
 
 
-------------------- GENERIC FUNCTIONS -------------------
 
-- concatMap :: (a -> [b]) -> [a] -> [b]
Retrieved from "https://rosettacode.org/wiki/Multiplication_tables"