aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Task/Y-combinator/PowerShell/y-combinator-1.psh Normal file
View file

@ -0,0 +1,51 @@
$fac = {
param([ScriptBlock] $f)
invoke-expression @"
{
param([int] `$n)
if (`$n -le 0) {1}
else {`$n * {$f}.InvokeReturnAsIs(`$n - 1)}
}
"@
}
$fib = {
param([ScriptBlock] $f)
invoke-expression @"
{
param([int] `$n)
switch (`$n)
{
0 {1}
1 {1}
default {{$f}.InvokeReturnAsIs(`$n-1)+{$f}.InvokeReturnAsIs(`$n-2)}
}
}
"@
}
$Z = {
param([ScriptBlock] $f)
invoke-expression @"
{
param([ScriptBlock] `$x)
{$f}.InvokeReturnAsIs(`$(invoke-expression @`"
{
param(```$y)
{`$x}.InvokeReturnAsIs({`$x}).InvokeReturnAsIs(```$y)
}
`"@))
}.InvokeReturnAsIs({
param([ScriptBlock] `$x)
{$f}.InvokeReturnAsIs(`$(invoke-expression @`"
{
param(```$y)
{`$x}.InvokeReturnAsIs({`$x}).InvokeReturnAsIs(```$y)
}
`"@))
})
"@
}
$Z.InvokeReturnAsIs($fac).InvokeReturnAsIs(5)
$Z.InvokeReturnAsIs($fib).InvokeReturnAsIs(5)

48
Task/Y-combinator/PowerShell/y-combinator-2.psh Normal file
View file

@ -0,0 +1,48 @@
$Y = {
param ($f)
{
param ($x)
$f.InvokeReturnAsIs({
param ($y)
$x.InvokeReturnAsIs($x).InvokeReturnAsIs($y)
}.GetNewClosure())
}.InvokeReturnAsIs({
param ($x)
$f.InvokeReturnAsIs({
param ($y)
$x.InvokeReturnAsIs($x).InvokeReturnAsIs($y)
}.GetNewClosure())
}.GetNewClosure())
}
$fact = {
param ($f)
{
param ($n)
if ($n -eq 0) { 1 } else { $n * $f.InvokeReturnAsIs($n - 1) }
}.GetNewClosure()
}
$fib = {
param ($f)
{
param ($n)
if ($n -lt 2) { 1 } else { $f.InvokeReturnAsIs($n - 1) + $f.InvokeReturnAsIs($n - 2) }
}.GetNewClosure()
}
$Y.invoke($fact).invoke(5)
$Y.invoke($fib).invoke(5)