fork download
copy 
  1. (*
  2.     Swift's closure
  3.         https://d...content-available-to-author-only...e.com/library/ios/documentation/Swift/Conceptual/Swift_Programming_Language/Closures.html
  4. *)
  5.  
  6.  
  7. load "Intmap";  (* for Moscow ML *)
  8.  
  9.  
  10. val digitNames = foldr
  11.     (fn ((i, s), m) => Intmap.insert (m, i, s))
  12.     (Intmap.empty ())
  13.     [
  14.         (0, "Zero"), (1, "One"), (2, "Two"),   (3, "Three"), (4, "Four"),
  15.         (5, "Five"), (6, "Six"), (7, "Seven"), (8, "Eight"), (9, "Nine")
  16.     ]
  17. val numbers = [16, 58, 510]
  18.  
  19.  
  20. val strings = map
  21.     (
  22.         fn number => let
  23.             fun f num output =
  24.                 if num <= 0 then
  25.                     output
  26.                 else
  27.                     f
  28.                         (num div 10)
  29.                         (Intmap.retrieve (digitNames, num mod 10) ^ output) 
  30.         in
  31.             f number ""
  32.         end
  33.     )
  34.     numbers
  35.  
  36.  
  37. fun print_strings xs = (
  38.     (map (fn s => (print (s ^ "\n") ; ())) xs) ;
  39.     ()
  40. )
  41.  
  42.  
  43.  
  44. (****
  45.  
  46. $ mosml numbers-map.sml
  47. Moscow ML version 2.01 (January 2004)
  48. Enter `quit();' to quit.
  49. [opening file "numbers-map.sml"]
  50. > val it = () : unit
  51. > val digitNames = <intmap> : string intmap
  52.   val numbers = [16, 58, 510] : int list
  53.   val strings = ["OneSix", "FiveEight", "FiveOneZero"] : string list
  54.   val print_strings = fn : string list -> unit
  55. [closing file "numbers-map.sml"]
  56. - print_strings strings;
  57. OneSix
  58. FiveEight
  59. FiveOneZero
  60. > val it = () : unit
  61. -
  62.  
  63. ****)
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
File "prog.ml", line 10, characters 0-3:
Syntax error
stdout
copy 
Standard output is empty
https://ideone.com/WpChMC
language:
OCaml (ocamlopt 4.05.0)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!