fork download
copy 
  1. (defpackage "ODAI-PT15-504" (:use "COMMON-LISP"))
  2. (in-package "ODAI-PT15-504")
  3.  
  4. (loop with h = (make-hash-table :test #'equal)
  5.       for s = (read-line nil nil)
  6.       while s
  7.       do (incf (gethash s h 0))
  8.       finally (maphash (lambda (k v) (format t "~A ~A~%" k v)) h))
  9.  
Success #stdin #stdout 0.01s 25564KB
comments (?)
stdin
copy 
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga
Piyo🐤
Piyo🐤
stdout
copy 
Hoge 2
Fuga 3
Foo 2
Bar 1
Piyo🐤 2
https://ideone.com/VW5xja
language:
Common Lisp (sbcl 1.4.16)
created:
5 years 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!