Data commit

Task/Halt-and-catch-fire/00-META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Simple
+from: http://rosettacode.org/wiki/Halt_and_catch_fire

Task/Halt-and-catch-fire/00-TASK.txt

@@ -0,0 +1,14 @@
+;Task
+
+Create a program that crashes as soon as possible, with as few lines of code as possible. Be smart and don't damage your computer, ok?
+
+The code should be syntactically valid. It should be possible to insert [a subset of] your submission into another program, presumably to help debug it, or perhaps for use when an internal corruption has been detected and it would be dangerous and irresponsible to continue.
+
+;References
+* [[wp:Halt_and_Catch_Fire_(computing)|Wikipedia: Halt and Catch Fire]]
+
+
+;Related Tasks
+* [[Program termination]]
+<br><br>
+

Task/Halt-and-catch-fire/11l/halt-and-catch-fire.11l

@@ -0,0 +1 @@
+assert(0B)

Task/Halt-and-catch-fire/6502-Assembly/halt-and-catch-fire-1.6502

@@ -0,0 +1 @@
+ db $02

Task/Halt-and-catch-fire/6502-Assembly/halt-and-catch-fire-2.6502

@@ -0,0 +1,2 @@
+forever:
+jmp forever

Task/Halt-and-catch-fire/68000-Assembly/halt-and-catch-fire.68000

@@ -0,0 +1 @@
+jmp * ;many assemblers allow * or $ to represent the address of this line of code.

Task/Halt-and-catch-fire/8080-Assembly/halt-and-catch-fire.8080

@@ -0,0 +1,2 @@
+di
+hlt

Task/Halt-and-catch-fire/8086-Assembly/halt-and-catch-fire.8086

@@ -0,0 +1,2 @@
+cli
+hlt

Task/Halt-and-catch-fire/ALGOL-68/halt-and-catch-fire.alg

@@ -0,0 +1 @@
+( print( ( 1 OVER 0 ) ) )

Task/Halt-and-catch-fire/ALGOL-W/halt-and-catch-fire.alg

@@ -0,0 +1 @@
+assert false.

Task/Halt-and-catch-fire/AWK/halt-and-catch-fire.awk

@@ -0,0 +1,11 @@
+# syntax: GAWK -f HALT_AND_CATCH_FIRE.AWK
+#
+# This won't halt the CPU but the program will crash immediately on startup
+# with "error: division by zero attempted".
+BEGIN { 1/0 }
+#
+# This will heat up the CPU, don't think it will catch on fire.
+BEGIN { while(1) {} }
+#
+# Under TAWK 5.0 using AWKW will immediately abort.
+BEGIN { abort(1) }

Task/Halt-and-catch-fire/Ada/halt-and-catch-fire.ada

@@ -0,0 +1,4 @@
+procedure Halt_And_Catch_Fire is
+begin
+   raise Program_Error with "Halt and catch fire";
+end Halt_And_Catch_Fire;

Task/Halt-and-catch-fire/Applesoft-BASIC/halt-and-catch-fire.basic

@@ -0,0 +1 @@
+HCF$ =  CHR$ (184) + "P" +  CHR$ (254): CALL  PEEK ( PEEK (131) +  PEEK (132) * 256 + 1) +  PEEK ( PEEK (131) +  PEEK (132) * 256 + 2) * 256

Task/Halt-and-catch-fire/Arturo/halt-and-catch-fire.arturo

@@ -0,0 +1 @@
+0/0

Task/Halt-and-catch-fire/BQN/halt-and-catch-fire.bqn

@@ -0,0 +1,2 @@
+! "Insert value that is not 1"
+"Error Message" ! "Value that is not 1, again"

Task/Halt-and-catch-fire/C++/halt-and-catch-fire.cpp

@@ -0,0 +1,5 @@
+#include <stdexcept>
+int main()
+{
+    throw std::runtime_error("boom");
+}

Task/Halt-and-catch-fire/C-sharp/halt-and-catch-fire-1.cs

@@ -0,0 +1 @@
+int a=0,b=1/a;

Task/Halt-and-catch-fire/C-sharp/halt-and-catch-fire-2.cs

@@ -0,0 +1 @@
+int a=1/0;

Task/Halt-and-catch-fire/C-sharp/halt-and-catch-fire-3.cs

@@ -0,0 +1 @@
+throw new System.Exception();

Task/Halt-and-catch-fire/C/halt-and-catch-fire.c

@@ -0,0 +1 @@
+int main(){int a=0, b=0, c=a/b;}

Task/Halt-and-catch-fire/Computer-zero-Assembly/halt-and-catch-fire.0asm

@@ -0,0 +1 @@
+STP

Task/Halt-and-catch-fire/Crystal/halt-and-catch-fire.crystal

@@ -0,0 +1 @@
+raise "fire"

Task/Halt-and-catch-fire/Delphi/halt-and-catch-fire.delphi

@@ -0,0 +1,4 @@
+procedure HaltAndCatchFire;
+begin
+raise Exception.Create('Burning to the ground');
+end;

Task/Halt-and-catch-fire/F-Sharp/halt-and-catch-fire.fs

@@ -0,0 +1 @@
+0/0

Task/Halt-and-catch-fire/FALSE/halt-and-catch-fire-1.false

@@ -0,0 +1 @@
+.

Task/Halt-and-catch-fire/FALSE/halt-and-catch-fire-2.false

@@ -0,0 +1 @@
+ 0

Task/Halt-and-catch-fire/Factor/halt-and-catch-fire-1.factor

@@ -0,0 +1 @@
++

Task/Halt-and-catch-fire/Factor/halt-and-catch-fire-2.factor

@@ -0,0 +1 @@
+1

Task/Halt-and-catch-fire/Factor/halt-and-catch-fire-3.factor

@@ -0,0 +1 @@
+USE: kernel IN: a : b ( -- ) die ; MAIN: b

Task/Halt-and-catch-fire/Fermat/halt-and-catch-fire-1.fermat

@@ -0,0 +1 @@
+Func S=S. S;

Task/Halt-and-catch-fire/Fermat/halt-and-catch-fire-2.fermat

@@ -0,0 +1 @@
+while 1 do !' od;

Task/Halt-and-catch-fire/Fortran/halt-and-catch-fire.f

@@ -0,0 +1,3 @@
+      PROGRAM A
+      CALL ABORT
+      END

Task/Halt-and-catch-fire/FreeBASIC/halt-and-catch-fire-1.basic

@@ -0,0 +1 @@
+poke 0,0

Task/Halt-and-catch-fire/FreeBASIC/halt-and-catch-fire-2.basic

@@ -0,0 +1,3 @@
+#define A() B()
+#define B() A()
+A()

Task/Halt-and-catch-fire/GDScript/halt-and-catch-fire.gd

@@ -0,0 +1,2 @@
+extends Node
+func _init():$a.a()

Task/Halt-and-catch-fire/GW-BASIC/halt-and-catch-fire.basic

@@ -0,0 +1 @@
+0 gosub 0

Task/Halt-and-catch-fire/Go/halt-and-catch-fire-1.go

@@ -0,0 +1 @@
+package main; import "fmt"; func main(){a, b := 0, 0; fmt.Println(a/b)}

Task/Halt-and-catch-fire/Go/halt-and-catch-fire-2.go

@@ -0,0 +1 @@
+package main; func main(){panic(0)}

Task/Halt-and-catch-fire/Hare/halt-and-catch-fire.hare

@@ -0,0 +1 @@
+export fn main() void = abort();

Task/Halt-and-catch-fire/Haskell/halt-and-catch-fire.hs

@@ -0,0 +1 @@
+main = error "Instant crash"

Task/Halt-and-catch-fire/J/halt-and-catch-fire-1.j

@@ -0,0 +1 @@
+   (1e6$a.) memw (mema 1),0 1e6

Task/Halt-and-catch-fire/J/halt-and-catch-fire-2.j

@@ -0,0 +1 @@
+   exit 0

Task/Halt-and-catch-fire/Jq/halt-and-catch-fire-1.jq

@@ -0,0 +1 @@
+    "whoops" | error

Task/Halt-and-catch-fire/Jq/halt-and-catch-fire-2.jq

@@ -0,0 +1 @@
+    0 | error("whoops")

Task/Halt-and-catch-fire/Julia/halt-and-catch-fire-1.julia

@@ -0,0 +1 @@
+@assert false "Halt and catch fire."

Task/Halt-and-catch-fire/Julia/halt-and-catch-fire-2.julia

@@ -0,0 +1 @@
+unsafe_load(convert(Ptr{Int}, C_NULL))

Task/Halt-and-catch-fire/Liberty-BASIC/halt-and-catch-fire.basic

@@ -0,0 +1 @@
+Let

Task/Halt-and-catch-fire/Lua/halt-and-catch-fire-1.lua

@@ -0,0 +1 @@
+error(1)

Task/Halt-and-catch-fire/Lua/halt-and-catch-fire-2.lua

@@ -0,0 +1 @@
+assert(false)

Task/Halt-and-catch-fire/Mathematica/halt-and-catch-fire.math

@@ -0,0 +1 @@
+Abort[]

Task/Halt-and-catch-fire/Nim/halt-and-catch-fire-1.nim

@@ -0,0 +1 @@
+assert false

Task/Halt-and-catch-fire/Nim/halt-and-catch-fire-2.nim

@@ -0,0 +1 @@
+echo 1 div 0

Task/Halt-and-catch-fire/Nim/halt-and-catch-fire-3.nim

@@ -0,0 +1 @@
+assert 1==0

Task/Halt-and-catch-fire/PL-M/halt-and-catch-fire.plm

@@ -0,0 +1 @@
+100H: GOTO 0; EOF

Task/Halt-and-catch-fire/Pascal/halt-and-catch-fire.pas

@@ -0,0 +1 @@
+begin pByte($0)^ := 0 end.

Task/Halt-and-catch-fire/Perl/halt-and-catch-fire.pl

@@ -0,0 +1 @@
+&a

Task/Halt-and-catch-fire/Phix/halt-and-catch-fire-1.phix

@@ -0,0 +1,3 @@
+(phixonline)-->
+ <span style="color: #0000FF;">?</span><span style="color: #000000;">9</span><span style="color: #0000FF;">/</span><span style="color: #000000;">0</span>
+<!--

Task/Halt-and-catch-fire/Phix/halt-and-catch-fire-2.phix

@@ -0,0 +1,23 @@
+(phixonline)-->
+ <span style="color: #008080;">try</span>
+     #ilASM{
+        [PE32]
+            push 1 -- uExitCode
+            call "kernel32","ExitProcess"
+        [PE64]
+            sub rsp,8*5
+            mov rcx,1 -- uExitCode
+            call "kernel32","ExitProcess"
+        [ELF32]
+            xor ebx, ebx
+            mov eax, 1  -- SYSCALL_EXIT
+            int 0x80
+        [ELF64]
+            mov rax,231 -- sys_exit_group(rdi=int error_code)
+            xor rdi,rdi
+            syscall
+    }
+ <span style="color: #008080;">catch</span> <span style="color: #000000;">e</span>
+     <span style="color: #0000FF;">?</span><span style="color: #000000;">e</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">try</span>
+<!--

Task/Halt-and-catch-fire/Python/halt-and-catch-fire.py

@@ -0,0 +1 @@
+0/0

Task/Halt-and-catch-fire/REXX/halt-and-catch-fire-1.rexx

@@ -0,0 +1 @@
+_=1;_+=

Task/Halt-and-catch-fire/REXX/halt-and-catch-fire-2.rexx

@@ -0,0 +1 @@
+_+=1

Task/Halt-and-catch-fire/REXX/halt-and-catch-fire-3.rexx

@@ -0,0 +1 @@
++

Task/Halt-and-catch-fire/Raku/halt-and-catch-fire-1.raku

@@ -0,0 +1 @@
+++8

Task/Halt-and-catch-fire/Raku/halt-and-catch-fire-2.raku

@@ -0,0 +1 @@
+die

Task/Halt-and-catch-fire/Raku/halt-and-catch-fire-3.raku

@@ -0,0 +1,9 @@
+use Test;
+
+dies-ok { ++8 };
+dies-ok { die };
+dies-ok {  …  };
+
+eval-dies-ok '++8';
+eval-dies-ok 'die';
+eval-dies-ok  '…' ;

Task/Halt-and-catch-fire/Ring/halt-and-catch-fire.ring

@@ -0,0 +1,5 @@
+try
+   see 5/0
+catch
+   see "Catch!" + nl + cCatchError
+done

Task/Halt-and-catch-fire/Ruby/halt-and-catch-fire.rb

@@ -0,0 +1 @@
+raise

Task/Halt-and-catch-fire/Rust/halt-and-catch-fire.rust

@@ -0,0 +1 @@
+fn main(){panic!("");}

Task/Halt-and-catch-fire/Swift/halt-and-catch-fire.swift

@@ -0,0 +1 @@
+fatalError("You've met with a terrible fate, haven't you?")

Task/Halt-and-catch-fire/Tiny-BASIC/halt-and-catch-fire.basic

@@ -0,0 +1 @@
+0 gosub 0

Task/Halt-and-catch-fire/V-(Vlang)/halt-and-catch-fire.v

@@ -0,0 +1 @@
+fn main() { panic(0) }

Task/Halt-and-catch-fire/Wren/halt-and-catch-fire.wren

@@ -0,0 +1 @@
+Fiber.abort("")

Task/Halt-and-catch-fire/XBS/halt-and-catch-fire.xbs

@@ -0,0 +1 @@
+error("Crashed");

Task/Halt-and-catch-fire/XPL0/halt-and-catch-fire.xpl0

@@ -0,0 +1 @@
+proc Recurse; Recurse; Recurse

Task/Halt-and-catch-fire/Z80-Assembly/halt-and-catch-fire.z80

@@ -0,0 +1,2 @@
+di
+halt