Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 333: / Line 333: @@
 =={{header|AppleScript}}==
 {{Trans|JavaScript}}
 <lang AppleScript>-- binaryString :: Int -> String
 on binaryString(n)
+    showIntAtBase(n, 2)
-    showIntAtBase(2, n)
 end binaryString
 -- showIntAtBase :: Int -> Int -> String
-on showIntAtBase(base, n)
+on showIntAtBase(n, base)
     if base > 1 then
         if n > 0 then
@@ Line 350: / Line 345: @@
             set r to n - m
             if r > 0 then
-                set prefix to showIntAtBase(base, r div base)
+                set prefix to showIntAtBase(r div base, base)
             else
                 set prefix to ""
@@ Line 370: / Line 365: @@
 end showIntAtBase
+-- TEST -----------------------------------------------------------------------
--- TEST
 on run
+    unlines(map(binaryString, [5, 50, 9000]))
-    intercalate(linefeed, ¬
-        map(binaryString, [5, 50, 9000]))
 end run
+-- GENERIC FUNCTIONS FOR TEST -------------------------------------------------
+-- intercalate :: Text -> [Text] -> Text
+on intercalate(strText, lstText)
--- GENERIC FUNCTIONS FOR TESTING
+    set {dlm, my text item delimiters} to {my text item delimiters, strText}
+    set strJoined to lstText as text
+    set my text item delimiters to dlm
+    return strJoined
+end intercalate
 -- map :: (a -> b) -> [a] -> [b]
@@ Line 390: / Line 389: @@
         set lst to {}
         repeat with i from 1 to lng
-            set end of lst to lambda(item i of xs, i, xs)
+            set end of lst to |λ|(item i of xs, i, xs)
         end repeat
         return lst
     end tell
 end map
--- intercalate :: Text -> [Text] -> Text
-on intercalate(strText, lstText)
-    set {dlm, my text item delimiters} to {my text item delimiters, strText}
-    set strJoined to lstText as text
-    set my text item delimiters to dlm
-    return strJoined
-end intercalate
 -- Lift 2nd class handler function into 1st class script wrapper
@@ Line 411: / Line 402: @@
     else
         script
-            property lambda : f
+            property |λ| : f
         end script
     end if
-end mReturn</lang>
+end mReturn
+-- unlines :: [String] -> String
+on unlines(xs)
+    intercalate(linefeed, xs)
+end unlines</lang>
 {{Out}}
 <pre>101