CarstenKoenig

(*****************************************************************************************
* Task:
* =====
*
* There is a string which may contain asterisks. Each asterisk must be replaced by
* a 0 or 1 and then all possible output combinations must be printed out.
* 
* For example the strings
*
* a*b must produce two outputs a0b and a1b

aallan

000000	Officially Xerox
000001	SuperLAN-2U
000002	BBN (was internal usage only, no longer used)
000003	XEROX CORPORATION
000004	XEROX CORPORATION
000005	XEROX CORPORATION
000006	XEROX CORPORATION
000007	XEROX CORPORATION
000008	XEROX CORPORATION
000009	powerpipes?

cdhunt

function map([scriptblock]$map, [Collections.IEnumerable]$x, $y) { $x.ForEach({& $map $_ $y}) }

# Two parameters
map { param($x, $y) $x + $y } @(1,2,3) 10

# Anonymous function as a value
$squareIt = { param($x) $x + $x }
map $squareIt @(1,2,3)

# One parameter

Jaykul

function Format-Wide {
    [CmdletBinding(HelpUri='http://go.microsoft.com/fwlink/?LinkID=113304')]
    param(
        [Parameter(Position=0)]
        [System.Object]
        ${Property},

        [switch]
        ${AutoSize},

MikeInnes

# Repeat an operation n times, e.g.
# @dotimes 100 println("hi")

macro dotimes(n, body)
  quote
    for i = 1:$(esc(n))
      $(esc(body))
    end
  end
end