:Namespace Contest2010Sample MyEmail←'contest2010@dyalog.com' ReferredBy←'contest2009@dyalog.com' Student←0 AboutMe←'I do not really exist at all.' Reactions←'It is a bit too early to say. ' Reactions,←'This is another premature comment. ' ∇ r←GetBuyRentParams xml r←150000 5000 360 75000 10 30000 5 1.5 25 1.75 3 600 ∇ ∇ r←BuyOrRent Params r←(123.45 67.89)(↑[0.5]15⍴⊂⍳3⊃Params) ∇ ∇ r←ctl AggregateSeries data r←(2,¯1↑⍴data)⍴data ⍝ Return 2 rows of data regardless of ctl params ∇ ∇ r←result SeekBuyRentParam params r←0 ∇ ∇ r←varint VariableRisk params r←0.5 ∇ ⍝ Optional functions ∇ r←varint VariableRiskFast params r←0.5 ∇ ∇ Presentation ⎕←' *'[1+(⍳20)∘.=⌈10+10×1○0.2×⍳63] ∇ :EndNamespace