Initial commit

Author: p-samuel

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitignore

@@ -0,0 +1,69 @@
+# Uncomment these types if you want even more clean repository. But be careful.
+# It can make harm to an existing project source. Read explanations below.
+#
+# Resource files are binaries containing manifest, project icon and version info.
+# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
+#*.res
+#
+# Type library file (binary). In old Delphi versions it should be stored.
+# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
+#*.tlb
+#
+# Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
+# Uncomment this if you are not using diagrams or use newer Delphi version.
+#*.ddp
+#
+# Visual LiveBindings file. Added in Delphi XE2.
+# Uncomment this if you are not using LiveBindings Designer.
+#*.vlb
+#
+# Deployment Manager configuration file for your project. Added in Delphi XE2.
+# Uncomment this if it is not mobile development and you do not use remote debug feature.
+#*.deployproj
+#
+# C++ object files produced when C/C++ Output file generation is configured.
+# Uncomment this if you are not using external objects (zlib library for example).
+#*.obj
+#
+
+# Delphi compiler-generated binaries (safe to delete)
+*.exe
+*.dll
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.dcu
+*.lib
+*.a
+*.o
+*.ocx
+
+# Delphi autogenerated files (duplicated info)
+*.cfg
+*.hpp
+*Resource.rc
+
+# Delphi local files (user-specific info)
+*.local
+*.identcache
+*.projdata
+*.tvsconfig
+*.dsk
+
+# Delphi history and backups
+__history/
+__recovery/
+*.~*
+
+# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
+*.stat
+
+# Boss dependency manager vendor folder https://github.com/HashLoad/boss
+modules/

AnonymousMethos.dpr

@@ -0,0 +1,18 @@
+program AnonymousMethos;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  Utils in 'src\Utils.pas',
+  Example.Map in 'src\Example.Map.pas',
+  Example.Reduce in 'src\Example.Reduce.pas',
+  Example.Filter in 'src\Example.Filter.pas',
+  Draft in 'src\Draft.pas';
+
+begin
+
+  Reduce;
+
+end.

AnonymousMethos.dproj

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2022 Samuel
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

AnonymousMethos.res

@@ -0,0 +1,2 @@
+# delphi-anonymus-methods
+ Using "filter", "map" and "reduce" in Delphi

LICENSE

@@ -0,0 +1,3 @@
+const frutas = ['uva', 'kiwi', 'banana', 'abacate', 'limão', 'laranja'];
+const frutas_com_b = frutas.filter(fruta => fruta.includes('b'));
+console.log(frutas_com_b);

README.md

@@ -0,0 +1,3 @@
+const animais = ['🐵', '🐮', '🐻', '🦁', '🐺'];
+const copia_animais = animais.map(animal => 'Animal: ' + animal);
+console.log('Cópia de animais: ', copia_animais)

js/filter.js

@@ -0,0 +1,3 @@
+const notas = [8.5, 6.5, 7.8, 10];
+const somas = notas.reduce((nota, soma) => soma + nota, 0);
+console.log('A soma das notas é: ', somas);

js/map.js

@@ -0,0 +1,22 @@
+unit Draft;
+
+interface
+
+type
+  TAnonimo = reference to procedure;
+
+implementation
+
+uses
+  System.SysUtils;
+
+var
+  MetodoAnonimo: TAnonimo;
+
+initialization
+  MetodoAnonimo := procedure
+  begin
+    Writeln('Olá, eu sou um procedimento anônimo!')
+  end;
+
+end.

js/reduce.js

@@ -0,0 +1,52 @@
+unit Example.Filter;
+
+interface
+
+procedure Filter;
+procedure FilterNumbers;
+
+implementation
+
+uses
+  System.SysUtils,
+  Utils;
+
+procedure Filter;
+var
+  Fruta: String;
+  Frutas: TArray<String>;
+  FrutasComB: TArray<String>;
+begin
+  Frutas := TArray<String>.Create('Uva', 'Kiwi', 'Banana', 'Abacate', 'Limão', 'Laranja');
+  FrutasComB := TUtil.Filter<String>(Frutas, function (Fruta: String): Boolean
+  begin
+    Result := Fruta.Contains('b') or Fruta.Contains('B');
+  end);
+
+  WriteLn('Frutas que contém a letra "b"');
+  for Fruta in FrutasComB do
+    Write(Fruta + ', ');
+  ReadLn;
+end;
+
+procedure FilterNumbers;
+var
+  Numero: Integer;
+  Numeros: TArray<Integer>;
+  Filtro: TArray<Integer>;
+begin
+  //Números múltiplos de 3
+  Numeros := TArray<Integer>.Create(1, 3, 4, 5, 6, 14, 15, 17, 22, 23, 25, 32);
+//  Filtro := TUtil.Filter<Integer>(Numeros, function (Numero: Integer): Boolean
+//  begin
+//    Result := (Numero mod 3 = 0);
+//  end);
+
+  for Numero in Filtro do
+    Write(Numero.ToString + ', ');
+
+  ReadLn;
+
+end;
+
+end.

src/Draft.pas

@@ -0,0 +1,41 @@
+unit Example.Map;
+
+interface
+
+procedure Map;
+
+implementation
+
+uses
+  System.SysUtils,
+  Utils;
+
+procedure Map;
+var
+  I: String;
+  Letras: TArray<String>;
+  LetrasMaiusculas: TArray<String>;
+begin
+
+  Letras := TArray<String>.Create('a', 'b', 'c', 'd', 'e');
+  LetrasMaiusculas := TUtil.Map<String>(
+    Letras, function (Letra: String): String
+    begin
+      Result := UpperCase(Letra);
+    end
+  );
+
+  WriteLn('Letras minúsculas: ');
+  for I in Letras do
+    Write(I + ', ');
+
+  WriteLn;
+  WriteLn('Letras maiúsculas: ');
+  for I in LetrasMaiusculas do
+    Write(I + ', ');
+
+  ReadLn;
+
+end;
+
+end.

src/Example.Filter.pas

@@ -0,0 +1,29 @@
+unit Example.Reduce;
+
+interface
+
+procedure Reduce;
+
+implementation
+
+uses
+  System.SysUtils,
+  Utils;
+
+procedure Reduce;
+var
+  Numeros: TArray<Double>;
+  Soma: Double;
+begin
+
+  Numeros := TArray<Double>.Create(8.5, 6.5, 7.8, 10);
+  Soma := TUtil.Reduce<Double>(Numeros, function (X, Y: Double): Double
+  begin
+    Result := X + Y;
+  end, 0);
+
+  WriteLn(Format('Somando os números 8.5, 6.5, 7.8, 10: %.2f', [Soma]));
+  ReadLn;
+end;
+
+end.

src/Example.Map.pas

@@ -0,0 +1,56 @@
+unit Utils;
+
+interface
+
+uses
+  System.SysUtils;
+
+type
+  TUtil = class sealed
+    class function Map<T>(Args: TArray<T>; F: TFunc<T, T>): TArray<T>;
+    class function Reduce<T>(Args: TArray<T>; F: TFunc<T, T, T>; InitialValue: T): T;
+    class function Filter<T>(Args: TArray<T>; F: TFunc<T, Boolean>): TArray<T>;
+  end;
+
+implementation
+
+uses
+  System.Generics.Collections;
+
+{ TUtil }
+
+class function TUtil.Filter<T>(Args: TArray<T>; F: TFunc<T, Boolean>): TArray<T>;
+var
+  I: Integer;
+  List: TList<T>;
+begin
+  List := TList<T>.Create;
+  try
+    for I := 0 to Length(Args) - 1 do
+      if F(Args[I]) then
+        List.Add(Args[I]);
+    Result := List.ToArray;
+  finally
+    List.Free;
+  end;
+end;
+
+class function TUtil.Map<T>(Args: TArray<T>; F: TFunc<T, T>): TArray<T>;
+var
+  I: Integer;
+begin
+  SetLength(Result, length(Args));
+  for I := 0 to length(Args) - 1 do
+    Result[I] := F(Args[I]);
+end;
+
+class function TUtil.Reduce<T>(Args: TArray<T>; F: TFunc<T, T, T>; InitialValue: T): T;
+var
+  I: T;
+begin
+  Result := InitialValue;
+  for I in Args do
+      Result := F(Result, I);
+end;
+
+end.