fix some file extensions
This commit is contained in:
parent
68f8f3e56b
commit
f3a896c724
789 changed files with 91 additions and 62 deletions
18
Task/Function-composition/VBScript/function-composition-1.vb
Normal file
18
Task/Function-composition/VBScript/function-composition-1.vb
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
option explicit
|
||||
class closure
|
||||
|
||||
private composition
|
||||
|
||||
sub compose( f1, f2 )
|
||||
composition = f2 & "(" & f1 & "(p1))"
|
||||
end sub
|
||||
|
||||
public default function apply( p1 )
|
||||
apply = eval( composition )
|
||||
end function
|
||||
|
||||
public property get formula
|
||||
formula = composition
|
||||
end property
|
||||
|
||||
end class
|
||||
Loading…
Add table
Add a link
Reference in a new issue