fork download
copy 
  1.  
  2.  (defun process-numeric-list ()
  3.  ;; 可 変 長 の 数 値 リ ス ト を 定 義
  4.  (let ((data-list '(150 420 300 250 380)))
  5.  (format t " 元 の リ ス ト : ~A~%" data-list)
  6.  ;; リ ス ト の 要 素 を 降 順 （ >） に ソ ー ト す る
  7.  (let ((sorted-list (sort data-list #'>)))
  8.  ;; 1 番 目 の 要 素 （ 最 高 値 ） を 抽 出 し て 表 示
  9.  (format t "1 番 目 の 要 素 : ~A~%" (first sorted-list)))))
  10.  
  11.  (process-numeric-list)
  12.  
Success #stdin #stdout #stderr 0.01s 9600KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 元 の リ ス ト : (150 420 300 250 380)
1 番 目 の 要 素 : 420
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x154b46a00000 - 0x154b46ce4fff
  0x154b46e15000 - 0x154b46e39fff
  0x154b46e3a000 - 0x154b46facfff
  0x154b46fad000 - 0x154b46ff5fff
  0x154b46ff6000 - 0x154b46ff8fff
  0x154b46ff9000 - 0x154b46ffbfff
  0x154b46ffc000 - 0x154b46ffffff
  0x154b47000000 - 0x154b47002fff
  0x154b47003000 - 0x154b47201fff
  0x154b47202000 - 0x154b47202fff
  0x154b47203000 - 0x154b47203fff
  0x154b47280000 - 0x154b4728ffff
  0x154b47290000 - 0x154b472c3fff
  0x154b472c4000 - 0x154b473fafff
  0x154b473fb000 - 0x154b473fbfff
  0x154b473fc000 - 0x154b473fefff
  0x154b473ff000 - 0x154b473fffff
  0x154b47400000 - 0x154b47403fff
  0x154b47404000 - 0x154b47603fff
  0x154b47604000 - 0x154b47604fff
  0x154b47605000 - 0x154b47605fff
  0x154b4775f000 - 0x154b47762fff
  0x154b47763000 - 0x154b47763fff
  0x154b47764000 - 0x154b47765fff
  0x154b47766000 - 0x154b47766fff
  0x154b47767000 - 0x154b47767fff
  0x154b47768000 - 0x154b47768fff
  0x154b47769000 - 0x154b47776fff
  0x154b47777000 - 0x154b47784fff
  0x154b47785000 - 0x154b47791fff
  0x154b47792000 - 0x154b47795fff
  0x154b47796000 - 0x154b47796fff
  0x154b47797000 - 0x154b47797fff
  0x154b47798000 - 0x154b4779dfff
  0x154b4779e000 - 0x154b4779ffff
  0x154b477a0000 - 0x154b477a0fff
  0x154b477a1000 - 0x154b477a1fff
  0x154b477a2000 - 0x154b477a2fff
  0x154b477a3000 - 0x154b477d0fff
  0x154b477d1000 - 0x154b477dffff
  0x154b477e0000 - 0x154b47885fff
  0x154b47886000 - 0x154b4791cfff
  0x154b4791d000 - 0x154b4791dfff
  0x154b4791e000 - 0x154b4791efff
  0x154b4791f000 - 0x154b47932fff
  0x154b47933000 - 0x154b4795afff
  0x154b4795b000 - 0x154b47964fff
  0x154b47965000 - 0x154b47966fff
  0x154b47967000 - 0x154b4796cfff
  0x154b4796d000 - 0x154b4796ffff
  0x154b47972000 - 0x154b47972fff
  0x154b47973000 - 0x154b47973fff
  0x154b47974000 - 0x154b47974fff
  0x154b47975000 - 0x154b47975fff
  0x154b47976000 - 0x154b47976fff
  0x154b47977000 - 0x154b4797dfff
  0x154b4797e000 - 0x154b47980fff
  0x154b47981000 - 0x154b47981fff
  0x154b47982000 - 0x154b479a2fff
  0x154b479a3000 - 0x154b479aafff
  0x154b479ab000 - 0x154b479abfff
  0x154b479ac000 - 0x154b479acfff
  0x154b479ad000 - 0x154b479adfff
  0x55acb8a9d000 - 0x55acb8b8dfff
  0x55acb8b8e000 - 0x55acb8c97fff
  0x55acb8c98000 - 0x55acb8cf7fff
  0x55acb8cf9000 - 0x55acb8d27fff
  0x55acb8d28000 - 0x55acb8d58fff
  0x55acb8d59000 - 0x55acb8d5cfff
  0x55acb9aa0000 - 0x55acb9ac0fff
  0x7ffef458a000 - 0x7ffef45aafff
  0x7ffef45d2000 - 0x7ffef45d5fff
  0x7ffef45d6000 - 0x7ffef45d7fff
https://ideone.com/I516T2
language:
Common Lisp (clisp 2.49.92)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!