Data commit

Task/Pascals-triangle/Batch-File/pascals-triangle.bat

@@ -0,0 +1,39 @@
+@echo off
+setlocal enabledelayedexpansion
+
+::The Main Thing...
+cls
+echo.
+set row=15
+call :pascal
+echo.
+pause
+exit /b 0
+::/The Main Thing.
+
+::The Functions...
+:pascal
+	set /a prev=%row%-1
+	for /l %%I in (0,1,%prev%) do (
+		set c=1&set r=
+		for /l %%K in (0,1,%row%) do (
+			if not !c!==0 (
+				call :numstr !c!
+				set r=!r!!space!!c!
+			)
+			set /a c=!c!*^(%%I-%%K^)/^(%%K+1^)
+		)
+		echo !r!
+	)
+goto :EOF
+
+:numstr
+	::This function returns the number of whitespaces to be applied on each numbers.
+	set cnt=0&set proc=%1&set space=
+	:loop
+	set currchar=!proc:~%cnt%,1!
+	if not "!currchar!"=="" set /a cnt+=1&goto loop
+	set /a numspaces=5-!cnt!
+	for /l %%A in (1,1,%numspaces%) do set "space=!space! "
+goto :EOF
+::/The Functions.