leppie

CREATE OR ALTER procedure [dbo].[sp_who3] 
as
begin
	declare @who table(
		SPID int, 
		Status varchar(20), 
		Login varchar(100), 
		Hostname varchar(50),
		BlkBy varchar(20), 
		DBName varchar(50), 

leppie

drop table if exists Reference
drop table if exists Source

declare @json NVARCHAR(MAX) = (select Data from Deps);  -- output from `DependenSee . -P -T ConsoleJson`

select *
into  Source
from
(
SELECT Id, Name, Source = 'Project' from OPENJSON(JSON_QUERY(@json, '$.Projects')) WITH (Id nvarchar(255), Name  nvarchar(255))

leppie

IronScheme's Implementation of map

The actual implementation of map in IronScheme is as follows:

(define map
  (case-lambda 
    [(proc list1)
      (let f ((lst list1)(a '()))
        (if (null? lst)
 (reverse! a)

leppie

Conversation

https://twitter.com/terrajobst/status/1562179020027965446

https://twitter.com/leppie/status/1562196732418482176

Source

leppie

drop table if exists [dbo].[Simple]
go

CREATE TABLE [dbo].[Simple](
	[Id] [int] IDENTITY(1,1) NOT NULL,
	[Name] [nvarchar](50) NOT NULL,
	[Extra] [bit] NULL,
	[Data] [nvarchar](max) NULL,
 CONSTRAINT [PK_Simple] PRIMARY KEY CLUSTERED (	[Id] ASC )
)

leppie

0:000> !gcroot 5cbb60a4
Thread 350c:
    0337ED80 0CA4D42E System.Threading.Tasks.Task.SpinThenBlockingWait(Int32, System.Threading.CancellationToken)
        ebp+28: 0337ed88
            ->  0555F510 System.Runtime.CompilerServices.AsyncTaskMethodBuilder`1+AsyncStateMachineBox`1[[System.Threading.Tasks.VoidTaskResult, System.Private.CoreLib],[Microsoft.AspNetCore.Hosting.WebHostExtensions+<RunAsync>d__4, Microsoft.AspNetCore.Hosting]]
            ->  04E3A9A8 Microsoft.AspNetCore.Hosting.Internal.WebHost
            ->  04E39444 Microsoft.Extensions.DependencyInjection.ServiceCollection
            ->  04E39450 System.Collections.Generic.List`1[[Microsoft.Extensions.DependencyInjection.ServiceDescriptor, Microsoft.Extensions.DependencyInjection.Abstractions]]
            ->  04E79E20 Microsoft.Extensions.DependencyInjection.ServiceDescriptor[]
            ->  04E0AC5C Microsoft.Extensions.DependencyInjection.ServiceDescriptor

leppie

#!/usr/bin/env ruby -wKU

require "pp"
require 'fileutils'
require "gruff"
require 'rmagick'

def read_cal(file)
  data_segment = false

leppie

using System.Collections.Generic;
using Microsoft.AspNetCore.Mvc;
using Wat.Models;

namespace Wat.Controllers
{
    public class HomeController : Controller
    {
        [HttpGet]
        public IActionResult Index()

leppie

unsafe class Program
{
    delegate int? bar(int* i);
    static void Main(string[] args)
    {
        int[] ω = {};
        var Ʃ = 42;
        int? Φ = null;
        bar ϼ = default;

leppie

(import (rnrs))
(display "Hello world")
(newline)