Peter Johnson
Peter Johnson
```pascal function DigitArray(N: UInt64; Base: TByte): TArray; begin Assert(Base > 1); SetLength(Result, DigitCountBase(N, Base)); if N > 0 then for I := 0 to High(Result) do begin var BToPowerI :=...
Alternative `DigitSumBase` that should be quicker: ```pascal function DigitSumBase(X: Int64; Base: Byte): Integer; begin Assert(Base > 1); if X = 0 then Exit(0); var SignOfX := Math.Sign(X); X := Abs(X);...
Alternative `DigitArray` that should be quicker: ```pascal function DigitArray(N: UInt64; Base: TByte): TArray; begin Assert(Base > 1); SetLength(Result, DigitCountBase(N, Base)); if N > 0 then begin var BToPowerI := 1;...
Can have overloads of all above functions for UInt64 parameter that are same except don't need to worry about sign. In fact the above functions could be rewritten to handle...
Version of `DigitSumBase` that raises each digit to given natural number power. ```pascal function DigitPowerSum(X: UInt64; Base: Byte; Exponent: Cardinal): Cardinal; begin Assert(Base > 1); if X = 0 then...
Here's a version that raises integer `X` to non-negative integral number power `N`. In this function we have n≥0 so the IEEE rules above reduce to: - pown(x, 0) is...
Here's a version that raises integer `X` to integral power `N`. The IEEE rules can be simplified as: - pown(x, 0) is 1. - pown(0, n) is 0 for n...
Accept files containing snippets in correct .ini format: see [CodeSnip issue 136](https://github.com/delphidabbler/codesnip/issues/136).
Need to check that v2.x actually takes case into account in commands. And what about case sensitivity of parameters?
See also issue #4 that suggests using the OLE clipboard access interfaces instead of the Windows procedural API.