Dva programátoři v TV vědomostní soutěži

$ftip = @"
Dva programátoři v TV vědomostní soutěži:
Takže pane Jaroslave, pan Zbyněk dostal na papírku jméno osobnosti a vy máte hádat, 
kdo to je, a to jen pomocí otázek, na které Pan Zbyněk může odpovídat jen "Ano" nebo "Ne". 
Jaroslav: Jaké je jméno osobnosti kterou představujete? Zbyněk: 
Ne, ano, ne, ano, ne, ne, ano, ano; ne, ano, ano, ne, ne, ano, ne, ano; 
ne, ano, ano, ne, ne, ne, ano, ne; ne, ano, ano, ne, ne, ano, ne, ano; 
ne, ano, ano, ano, ne, ano, ne, ne; ne, ano, ano, ne, ano, ano, ano, ano; 
ne, ano, ano, ano, ne, ano, ano, ne; ne, ano, ano, ano, ne, ne, ano, ano; 
ne, ano, ano, ne, ano, ne, ano, ano; ne, ano, ano, ano, ano, ne, ne, ano.
"@

if ($ftip -match 'Zbyněk:([^\.]+)\.$')
{
	[Text.Encoding]::ASCII.GetString(
	$(
		foreach ($b in $( $matches[1].Split(';') |% { $_.Trim() } ))
		{
			$bits = $(switch( $b.Split(', ') |% { $_.Trim() } |? { $_ } )
			{
				'ano' { 1 }
		       		'ne'  { 0 }
			})

			
			0..7 |? { $bits[7-$_] } |% { $x = 0 } { $x += [Math]::Pow(2, $_) } { $x }
			write-debug "$bits = $x"
		}
	))
}
Zveřejněno 30 října 07 07:30 by jachymko
Vedeno pod:

Komentář

# rarouš said on října 30, 2007 21:52:

hezký, jen mi chvilku trvalo, než jsem nainstaloval PoweShell :)

# PavlinII said on listopadu 1, 2007 15:17:

4 minuty v excelu.. a ani jsem nemusel jit hledat instalacky na PowerShell :-P

Neregistrovaní uživatele nemužou přidávat komentáře.
Vyvojar.cz na prodej!