Powershell 7. Лабораторная работа

$text = @"
Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастлива по-своему.
Все смешалось в доме Облонских. Жена узнала, что муж был в связи с бывшею в их доме француженкою-гувернанткой, и объявила мужу, что не может жить с ним в одном доме. Положение это продолжалось уже третий день и мучительно чувствовалось и самими супругами, и всеми членами семьи, и домочадцами. Все члены семьи и домочадцы чувствовали, что нет смысла в их сожительстве и что на каждом постоялом дворе случайно сошедшиеся люди более связаны между собой, чем они, члены семьи и домочадцы Облонских. Жена не выходила из своих комнат, мужа третий день не было дома. Дети бегали по всему дому, как потерянные; англичанка поссорилась с экономкой и написала записку приятельнице, прося приискать ей новое место; повар ушел вчера со двора, во время самого обеда; черная кухарка и кучер просили расчета.
На третий день после ссоры князь Степан Аркадьич Облонский — Стива, как его звали в свете, — в обычный час, то есть в восемь часов утра, проснулся не в спальне жены, а в своем кабинете, на сафьянном диване. Он повернул свое полное, выхоленное тело на пружинах дивана, как бы желая опять заснуть надолго, с другой стороны крепко обнял подушку и прижался к ней щекой; но вдруг вскочил, сел на диван и открыл глаза.
«Да, да, как это было? — думал он, вспоминая сон. — Да, как это было? Да! Алабин давал обед в Дармштадте; нет, не в Дармштадте, а что-то американское. Да, но там Дармштадт был в Америке. Да, Алабин давал обед на стеклянных столах, да, — и столы пели: Il mio tesoro 1 и не Il mio tesoro, а что-то лучше, и какие-то маленькие графинчики, и они же женщины», — вспоминал он.
Глаза Степана Аркадьича весело заблестели, и он задумался, улыбаясь. «Да, хорошо было, очень хорошо. Много еще что-то там было отличного, да не скажешь словами и мыслями даже наяву не выразишь». И, заметив полосу света, пробившуюся сбоку одной из суконных стор, он весело скинул ноги с дивана, отыскал ими шитые женой (подарок ко дню рождения в прошлом году), обделанные в золотистый сафьян туфли, и по старой, девятилетней привычке, не вставая, потянулся рукой к тому месту, где в спальне у него висел халат. И тут он вспомнил вдруг, как и почему он спит не в спальне жены, а в кабинете; улыбка исчезла с его лица, он сморщил лоб.
«Ах, ах, ах! Ааа!..» — замычал он, вспоминая все, что было. И его воображению представились опять все подробности ссоры с женою, вся безвыходность его положения и мучительнее всего собственная вина его.
«Да! она не простит и не может простить. И всего ужаснее то, что виной всему я, виной я, а не виноват. В этом-то вся драма, — думал он. — Ах, ах, ах!» — приговаривал он с отчаянием, вспоминая самые тяжелые для себя впечатления из этой ссоры.
Неприятнее всего была та первая минута, когда он, вернувшись из театра, веселый и довольный, с огромною грушей для жены в руке, не нашел жены в гостиной; к удивлению, не нашел ее и в кабинете и, наконец, увидал ее в спальне с несчастною, открывшею все, запиской в руке.
Она, эта вечно озабоченная, и хлопотливая, и недалекая, какою он считал ее, Долли, неподвижно сидела с запиской в руке и с выражением ужаса, отчаяния и гнева смотрела на него.
— Что это? это? — спрашивала она, указывая на записку.
И при этом воспоминании, как это часто бывает, мучало Степана Аркадьича не столько самое событие, сколько то, как он ответил на эти слова жены.
С ним случилось в эту минуту то, что случается с людьми, когда они неожиданно уличены в чем-нибудь слишком постыдном. Он не сумел приготовить свое лицо к тому положению, в которое он становился перед женой после открытия его вины. Вместо того чтоб оскорбиться, отрекаться, оправдываться, просить прощения, оставаться даже равнодушным — все было бы лучше того, что он сделал! — его лицо совершенно невольно («рефлексы головного мозга», — подумал Степан Аркадьич, который любил физиологию), совершенно невольно вдруг улыбнулось привычною, доброю и потому глупою улыбкой.
Эту глупую улыбку он не мог простить себе. Увидав эту улыбку, Долли вздрогнула, как от физической боли, разразилась, со свойственною ей горячностью, потоком жестоких слов и выбежала из комнаты. С тех пор она не хотела видеть мужа.
«Всему виной эта глупая улыбка», — думал Степан Аркадьич.
«Но что ж делать? что ж делать?» — с отчаянием говорил он себе и не находил ответа.
"@
 
$text = $text -split "`r`n" -join " "
 
$text = -join $text.ToCharArray().Where{$_ -match "\w"} 
 
$global:i = 0
$text = ($text.ToCharArray() | 
    Group-Object {
        [math]::Truncate($global:i / ([int][math]::Sqrt($text.Length)))
        $global:i++
    } |
        Where-Object {
            $_.Count -eq [math]::Truncate($global:i / ([int][math]::Sqrt($text.Length)))
        } | 
            ForEach-Object {
                
                -join $_.Group
            }) -join "`r`n"
$text
 
$text = ($text -split "`r`n" | ForEach-Object {
    ($_.ToCharArray() | ForEach-Object {
        "{0:x}" -f [int]$_
    }) -join " "
}) -join "`r`n"
 
$text
 
$text = ($text -split "`r`n" | ForEach-Object {
    -join ($_ -split " " | ForEach-Object {
        [System.Convert]::ToInt32($_, 16) % 2
    })  
}) -join "`r`n"
 
$text -split "`r`n" | ForEach-Object {
    [System.Convert]::ToInt64($_, 2)
}

$text = "Everything was in ... had given warning"
 
$text = $text -replace '\W'
$i = [int][math]::sqrt($text.Length)
 
-join($text[0..(($i * $i) - 1)]) -split "(?<=.)(?=(?:.{$i})+$)"

$text = @"
Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастлива по-своему.
"@
 
$text = $text -replace "\W"
 
for ($($i = 0; $out = ''); $i -lt $text.Length; $i++){
    if (($i + 1) % [int][math]::Sqrt($text.Length) -eq 0){
        $out = -join $out, $text[$i], "`r`n"
    }
    else {
        $out = -join $out, $text[$i]
    }
}
 
$out

$text = @"
Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастлива по-своему.
"@
 
$text = $text -replace "\W"
 
for ($($i = 0; $out=""); $i -lt $text.Length; $i++){
    if (($i + 1) % [int][math]::Sqrt($text.Length)){
        $out += $text[$i]
    }
    else {
        $out += $text[$i] + "`r`n"
    }
}
 
$out

$text = @"
Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастлива по-своему.
"@
 
$text = $text -replace "\W"
 
for ($($i = 0; $out=""); $i -lt $text.Length; $i++){
    $out += (($i + 1) % [int][math]::Sqrt($text.Length)) ? $text[$i] : $text[$i] + "`r`n"
}
 
$out

$text = @"
Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастлива по-своему.
"@
 
$text = $text -replace "\W"
 
([regex]".{$([int][math]::Sqrt($text.Length))}").Matches($text).Value

param(
    $path = "D:\tmp\AK.txt"
)cls
#0
$AK = gc $path 
 
#1
$letters = $ak-replace"\W"
 
#2
$size   = [math]::Floor([math]::Sqrt($letters.Length))
$square = (($letters|sls ".{$size}"-all).Matches.Value)|select -f $size
 
"3`n"
$square
 
#4
$hex = $square|%{($_.ToCharArray()|%{"0x{0:x}" -f [int]$_})-JOIN " "}
 
"`n5`n"
$hex
 
#6
$bin = $hex|%{-join(-split$_|%{if($_/2-is[int]){0}else{1}})}
 
"`n7`n"
$bin
 
#8
$num = $bin|%{[convert]::ToInt32($_, 2)}
 
"`n9`n"
$num

$text = "abcdefghijklmno"
$i = [int][math]::sqrt($text.Length)
 
-join($text[0..(($i * $i) - 1)]) -split "(?<=.)(?=(?:.{$i})+$)"

#1
$text = (gc ak.txt) -replace '\W'
# 2
[int]$nsplt = [math]::floor([math]::sqrt($text.length))
$a = $text.tochararray()
$arr = (1..$nsplt).foreach({$b,$a = ($a).where({$_},'Split',$nsplt);-join $b})
# 3
$arr
# 4-5
$arr.foreach({(($_.tochararray()).foreach({'0x{0:X}' -f [int][char]$_}))-join' '})
# 6
$bin = $arr.foreach({(($_.tochararray()).foreach({([int][char]$_)%2}))-join' '})
# 7
$bin
# 8
$bin = $bin -replace ' '
$bin 
# 9
$bin.foreach({[convert]::toint32($_,2)})

$max = [UInt16][Math]::Sqrt(($$ = (gc .\ak.txt) -replace '\W').Length)
([Char[]]$$ | Group-Object {[Math]::Floor($script:i++ / $max)}).Where{
  $_.Count -eq $max
}.ForEach{
  $str += ,-join($$ = $_.Group | Format-Hex).Ascii
  $hex += ,($$.HexBytes -join ' ')
  $bin += ,(($$ = $$.Bytes.ForEach{$_ % 2 -eq 0 ? 0 : 1}) -join ' ')
  $dec += ,[Convert]::ToInt32(-join$$, 2)
}
$str, $hex, $bin, $dec

$text = "abcdefghijklmno"
$i = [math]::Truncate([math]::sqrt($text.Length))
 
-join ($text[0..(($i * $i) - 1)]) -split "(?<=.)(?=(?:.{$i})+$)"