016-05-16] Challenge #267 [Easy] All the places your dog didn't win | C# Online Compiler

016-05-16] Challenge #267 [Easy] All the places your dog didn't win by Jak Drako

Imports System
Imports System.Linq
Imports Microsoft.VisualBasic
				
Public Module Module1

	Sub Main
		Console.Write(DogShow(7, 115))
	End Sub

	Function DogShow(placing As Integer, Optional places As Integer = 100) As String
		Dim fn = Function(n As Integer) If(n < 4, {"th", "st", "nd", "rd"}(n), "th")
		Return Join(Enumerable.Range(1, places).Where(Function(x) x <> placing).Select(Function(x) x & If((x Mod 100) < 14, fn(x Mod 100), fn(x Mod 10))).ToArray, ", ")
	End Function
							
End Module

​x
 
Imports System
Imports System.Linq
Imports Microsoft.VisualBasic
                
Public Module Module1
​
    Sub Main
        Console.Write(DogShow(7, 115))
    End Sub
​
    Function DogShow(placing As Integer, Optional places As Integer = 100) As String
        Dim fn = Function(n As Integer) If(n < 4, {"th", "st", "nd", "rd"}(n), "th")
        Return Join(Enumerable.Range(1, places).Where(Function(x) x <> placing).Select(Function(x) x & If((x Mod 100) < 14, fn(x Mod 100), fn(x Mod 10))).ToArray, ", ")
    End Function
                            
End Module

1st, 2nd, 3rd, 4th, 5th, 6th, 8th, 9th, 10th, 11th, 12th, 13th, 14th, 15th, 16th, 17th, 18th, 19th, 20th, 21st, 22nd, 23rd, 24th, 25th, 26th, 27th, 28th, 29th, 30th, 31st, 32nd, 33rd, 34th, 35th, 36th, 37th, 38th, 39th, 40th, 41st, 42nd, 43rd, 44th, 45th, 46th, 47th, 48th, 49th, 50th, 51st, 52nd, 53rd, 54th, 55th, 56th, 57th, 58th, 59th, 60th, 61st, 62nd, 63rd, 64th, 65th, 66th, 67th, 68th, 69th, 70th, 71st, 72nd, 73rd, 74th, 75th, 76th, 77th, 78th, 79th, 80th, 81st, 82nd, 83rd, 84th, 85th, 86th, 87th, 88th, 89th, 90th, 91st, 92nd, 93rd, 94th, 95th, 96th, 97th, 98th, 99th, 100th, 101st, 102nd, 103rd, 104th, 105th, 106th, 107th, 108th, 109th, 110th, 111th, 112th, 113th, 114th, 115th

Last Run:	2:23:00 pm
Compile:	0.145s
Execute:	0.008s
Memory:	16kb
CPU:	0.016s

View IL Code