aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Singly-linked-list-Element-definition/Ada/singly-linked-list-element-definition.adb Normal file
View file

@ -0,0 +1,6 @@
type Link;
type Link_Access is access Link;
type Link is record
Next : Link_Access := null;
Data : Integer;
end record;

87
Task/Singly-linked-list-Element-definition/RISC-V-Assembly/singly-linked-list-element-definition.asm Normal file
View file

@ -0,0 +1,87 @@
# riscv assembly raspberry pico2 rp2350
# program linkedlist.s
# connexion putty com3
/*********************************************/
/* CONSTANTES */
/********************************************/
/* for this file see risc-v task include a file */
.include "../../../constantesRiscv.inc"
.equ NBELEMENTS, 100 # list size
/****************************************************/
/* MACROS */
/****************************************************/
#.include "../ficmacrosriscv.inc" # only for debugging
/*******************************************/
/* STRUCTURE */
/*******************************************/
/* structure linkedlist*/
.struct 0
llist_next: # next element
.struct llist_next + 4
llist_value: # element value
.struct llist_value + 4
llist_fin:
/*******************************************/
/* INITIALED DATAS */
/*******************************************/
.data
szMessStart: .asciz "Program riscv start.\r\n"
szMessEndOk: .asciz "Program riscv end OK.\r\n"
szCariageReturn: .asciz "\r\n"
szMessNum: .asciz "Prime : "
.align 2
/*******************************************/
/* UNINITIALED DATA */
/*******************************************/
.bss
sConvArea: .skip 24
.align 2
lList1: .skip llist_fin * NBELEMENTS # list memory place
/**********************************************/
/* SECTION CODE */
/**********************************************/
.text
.global main
main:
call stdio_init_all # général init
1: # start loop connexion
li a0,0 # raz argument register
call tud_cdc_n_connected # waiting for USB connection
beqz a0,1b # return code = zero ? yes -> loop
la a0,szMessStart # message address
call writeString # display message
la a0,lList1 # list address
call initLinkedList
la a0,szMessEndOk # message address
call writeString # display message
call getchar
100: # final loop
j 100b
/**********************************************/
/* initialisation linkedlist */
/**********************************************/
/* a0 linked list address */
initLinkedList: # INFO: initLinkedList
addi sp, sp, -4
sw ra, 0(sp)
sw x0,llist_value(a0)
sw x0,llist_next(a0)
lw ra, 0(sp)
addi sp, sp, 4
ret
/************************************/
/* file include Fonctions */
/***********************************/
/* for this file see risc-v task include a file */
.include "../../../includeFunctions.s"

21
Task/Singly-linked-list-Element-definition/V-(Vlang)/singly-linked-list-element-definition.v Normal file
View file

@ -0,0 +1,21 @@
struct Node[T] {
mut:
data T
next ?&Node[T]
}
// method override of built-in `str()`
fn (n Node[T]) str() string {
mut result := n.data.str()
mut current := n.next
for current != none {
result += " -> ${current or {continue}.data.str()}"
current = current or {continue}.next
}
return result
}
fn main() {
n := Node{1, ?&Node{2, ?&Node{3, none}}}
println(n.str())
}