|
Imports System.Runtime.Serialization
Imports System.Diagnostics.Contracts
<Serializable()>
Public Class PositiveIntegerSetCollection
Inherits HashSet(Of Integer)
Public Sub New()
End Sub
Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
MyBase.New(info, context)
End Sub
Public Shadows Function Add(ByVal value As Integer) As Boolean
Contract.Requires(Of ArgumentOutOfRangeException)(value > 0, "Must be a positive integer.")
Return MyBase.Add(value)
End Function
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
He started his career as a PDP-11 assembly language programmer in downtown Tokyo, learning what "patience" in real life means by punching a 110 baud ASR-33 Teletype frantically. He used to be able to put in the absolute loader sequence through the switch panel without consulting the DEC programming card.
Since then, his computer language experiences include 8051 assembly, FOCAL, BASIC, FORTRAN-IV, Turbo/MS C, VB. VB.NET, and C#.
Now, he lives with his wife, two grown-up kids (get out of my place!), and two cats in Westerville, Ohio.