Harshad or Niven series: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,487: / Line 2,487: @@
 # digitSum :: Int -> Int
 def digitSum(n):
-    '''The sum of the decimal digits of n.'''
+    '''The Sum of the decimal digits of n.'''
     a = 0
     r = n
@@ Line 2,512: / Line 2,512: @@
         fTable(__doc__ + ':\n')(
             lambda x: x.__name__
-        )(str)(lambda f: f(harshads()))([
+        )(showList)(lambda f: f(harshads()))([
             firstTwenty,
             firstAbove1000
@@ Line 2,552: / Line 2,552: @@
         xShow, fxShow, f, xs
     )
+# showList :: [a] -> String
+def showList(xs):
+    '''Stringification of a list.'''
+    return '[' + ','.join(repr(x) for x in xs) + ']'
@@ Line 2,560: / Line 2,566: @@
 <pre>Harshad or Niven series:
-   firstTwenty -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42]
+   firstTwenty -> [1,2,3,4,5,6,7,8,9,10,12,18,20,21,24,27,30,36,40,42]
 firstAbove1000 -> [1002]</pre>