SystemSh0cker/monaco-editor
1
0
Fork 0
mirror of https://github.com/microsoft/monaco-editor.git synced 2025-12-22 22:02:55 +01:00
Code Issues Projects Releases Packages Activity

deploy: e531b5c337

Browse source
This commit is contained in:
azure-pipelines[bot] 2023-03-28 07:39:06 +00:00
parent 67e01c76b4
commit 02bed41d9a
554 changed files with 652 additions and 377 deletions
Download patch file Download diff file Expand all files Collapse all files

2
2840.js Normal file
View file

@ -0,0 +1,2 @@
"use strict";(self.webpackChunkmy_application=self.webpackChunkmy_application||[]).push([[2840],{2840:(n,e,s)=>{s.r(e),s.d(e,{default:()=>t});const t='Imports System\nImports System.Collections.Generic\n\nModule Module1\n\n Sub Main()\n Dim a As New M8Ball\n\n Do While True\n\n Dim q As String = ""\n Console.Write("ask me about the future... ")\n q = Console.ReadLine()\n\n If q.Trim <> "" Then\n Console.WriteLine("the answer is... {0}", a.getAnswer(q))\n Else\n Exit Do\n End If\n Loop\n\n End Sub\n\nEnd Module\n\nClass M8Ball\n\n Public Answers As System.Collections.Generic.Dictionary(Of Integer, String)\n\n Public Sub New()\n Answers = New System.Collections.Generic.Dictionary(Of Integer, String)\n Answers.Add(0, "It is certain")\n Answers.Add(1, "It is decidedly so")\n Answers.Add(2, "Without a doubt")\n Answers.Add(3, "Yes, definitely")\n Answers.Add(4, "You may rely on ")\n Answers.Add(5, "As I see it, yes")\n Answers.Add(6, "Most likely")\n Answers.Add(7, "Outlook good")\n Answers.Add(8, "Signs point to yes")\n Answers.Add(9, "Yes")\n Answers.Add(10, "Reply hazy, try again")\n Answers.Add(11, "Ask again later")\n Answers.Add(12, "Better not tell you now")\n Answers.Add(13, "Cannot predict now")\n Answers.Add(14, "Concentrate and ask again")\n Answers.Add(15, "Don\'t count on it")\n Answers.Add(16, "My reply is no")\n Answers.Add(17, "My sources say no")\n Answers.Add(18, "Outlook not so")\n Answers.Add(19, "Very doubtful")\n End Sub\n\n Public Function getAnswer(theQuestion As String) As String\n Dim r As New Random\n Return Answers(r.Next(0, 19))\n End Function\n\nEnd Class\n'}}]);
//# sourceMappingURL=2840.js.map