In 19th century Europe it was not unheard of for parents to threaten their misbehaving sons with castration or otherwise threaten their genitals. This theme is explored in the story Tupik by French writer Michel Tournier in his collection of stories entitled Le Coq de Bruyère (1978) and is a phenomenon Freud documents several times.[5] In same period, Dr. Kellogg and others in America and English speaking countries offered to Victorian parents circumcision and in grave instances, castration of their boys and girls as a terminal cure and punishment for a wide variety of misbehaviours and ills, becoming very popular over time.
Turing was prosecuted for homosexuality in 1952, when such acts were still criminalised in the UK. He accepted treatment with estrogen injections (chemical castration) as an alternative to prison. Turing died in 1954, 16 days before his 42nd birthday, from cyanide poisoning. An inquest determined his death a suicide; his mother and some others believed it was accidental.[7] On 10 September 2009, following an Internet campaign, British Prime Minister Gordon Brown made an official public apology on behalf of the British government for "the appalling way he was treated." The Queen granted him a posthumous pardon on 24 December 2013.[8][9]
(define A (lambda (k x1 x2 x3 x4 x5)
(define B (lambda ()
(set! k (- k 1))
(A k B x1 x2 x3 x4)))
(if (<= k 0)
(+ (x4) (x5))
(B))))
(display (A 10 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0)))
My Scheme interpreter passes the test withwith being shit.
(lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0)))
A(10, 1, -1, -1, 1, 0)
(define m (lambda (x) (lambda () x)))
(A 10 (m 1) (m -1) (m -1) (m 1) (m 0))
MB
3.508^ #
| #
| #
| #
| #
| :@ :::::::#
| @:@:: :@::#
| @:@:: :@::#
| 2.1MB ------- My interpreter's peak '@:@:: :@::#
| :@:@::::@::@:@:: :@::#
| ::::@:::@:@:@:: @::@:@:: :@::#
| ::: @:::@:@:@:: @::@:@:: :@::#
| :::::::::::: @:::@:@:@:: @::@:@:: :@::#
| ::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| :::::::::::::::::::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| ::: :: : : ::: ::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| :::@:::::: :: : : ::: ::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| :::::@:::::: :: : : ::: ::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| :::::::@:::::: :: : : ::: ::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
| :::::::@:::::: :: : : ::: ::::: :::::::: @:::@:@:@:: @::@:@:: :@::#
0 +----------------------------------------------------------------------->Mi
0 118.5
Number of snapshots: 93
Detailed snapshots: [9, 40, 44, 46, 48, 53, 63, 70, 80, 90, 92 (peak)]
MB
2.025^ ##
| @# :
| @:@# @@:::::
| ::@:@# @ : : ::::::::::
| ::@:@# @ : : ::::: :: :::::::
| ::::@:@# @ : : ::::: :: ::: :: :::::::::
| @@: ::@:@# @ : : ::::: :: ::: :: :: ::: : :::
| @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::::
| ::@ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: : :
| : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: ::::::
| ::: @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: :::::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: :::::::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@:
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@::
| :: : @ : ::@:@# @ : : ::::: :: ::: :: :: ::: : :::@::: :::: ::::::::@::
0 +----------------------------------------------------------------------->Gi
0 40.70
Number of snapshots: 58
Detailed snapshots: [4, 8, 10, 11 (peak), 12, 37, 54]